r - 更新R中的公式

我有一个公式对象form1

 form1 = y ~ 1 + x*y

我想再加上一个术语，在这个公式中说+ z，这样我的form2就变成了

 form2 = y ~ 1 + x*y + z.

我发现这样做很麻烦:

terms.form1 <- terms(form1)
terms.labels <- attr(terms.form1,"term.labels")
old.terms <- paste(terms.labels,collapse=" + ")
updated.terms <- paste(old.terms," + z",collapse=" + ")

form2 = as.formula(paste(as.character(form1[[2]]),"~",updated.terms,collapse=""))

尽管这给了我form2，但我想知道是否有更简单的方法来做到这一点。

先感谢您!

最佳答案

您应该使用update.formula:

update(y ~ 1 + x*y,    ~ . + z)
y ~ x + y + z + y:x

.的意思是“公式的此部分之前是什么”。

关于r - 更新R中的公式，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/18070131/