我正在编写一个函数,它接受两个变量,并在一组表示为单边公式的控件上分别对它们中的每一个进行回归。现在,我正在使用以下公式为其中一个回归制定公式,但感觉有点过时了:
foo <- function(x, y, controls) {
cl <- match.call()
xn <- cl[["x"]]
xf <- as.formula(paste(xn, deparse(controls)))
}
我更喜欢使用 来执行此操作update.formula()
,但当然update.formula(controls, x ~ .)
并且update.formula(controls, as.name(x) ~ .)
不起作用。我应该做什么?