将变量名称的函数参数传递到R函数的公式中？

Question

我正在寻找一种简单的方法，将变量名称的函数参数传递到R函数的公式中。

测试数据集：

set.seed(4892)
df.pass <- data.frame("alfa"=sample(1:9, 100, replace=T), "beta"=sample(1:9, 100, replace=T), 
                      "theta"=sample(1:9, 100, replace=T), "out"=runif(100, 0, 1))

要进行功能的示例分析（测试交互模型是否不同）：

lrtest(glm(out~alfa*beta, family = binomial("logit"), df.pass),
       glm(out~alfa + beta, family = binomial("logit"), df.pass))

如果目标是创建通用函数invinteract来解决上述问题，并使用任意变量名和数据集，那么将变量名从function()参数传递到与out ， alfa和beta ？

将原始变量名称插入公式中不起作用，因为R试图将名称作为对象求值，但一无所获。

将字符串变量名称直接插入公式中也不起作用。

是否需要使用paste()重构公式，还是有更直接的方法？

Answer 1

glm还接受字符串而不是公式。 因此，您可以执行以下操作：

mytest <- function(DF, y, x1, x2) {
  lrtest(glm(sprintf("%s ~ %s * %s", y, x1, x2), family = binomial("logit"), DF),
         glm(sprintf("%s ~ %s + %s", y, x1, x2), family = binomial("logit"), DF))
}
mytest(df.pass, "out", "alfa", "beta")