R：在函数中作为variablename和string的参数？

Question

我想为多项模型创建一个函数。 Effect函数需要一个包含预测变量名称和预测变量本身的字符串。我尝试了不同的方法将参数转换为字符串，但我得到了同样的错误： ＆＃34;以下预测因子不在模型中：活动＆＃34;在调用minmax（activity，model1）时。但它是。我做错了什么？

# effects when minimum und maximum ####
# minmax function
minmax <- function(x1,m){
      Effect(paste0('"',deparse(substitute(x1)),'"'),m,xlevels=list(x=c(min(x1),max(x1))    ))
}