我正在尝试“粘贴”一种公式,用于在party的mob函数中使用。这意味着该公式将采用y~x1+...+xM | z1+..zN的形式。
我正在对y ~ x1+ ... + xM进行一些初步拟合,然后希望使用update()添加方程的条件部分。
以下是测试代码:
我正在对y ~ x1+ ... + xM进行一些初步拟合,然后希望使用update()添加方程的条件部分。
以下是测试代码:
var1 <- 1:78
x1 <- paste("x", var1, sep="")
f1 <- paste("f", var1[1:10], sep="")
# use first 77 variables
fmla <- as.formula( paste("y ~ ", paste(x1[1:77], collapse=" + ", sep=""), sep=""))
fmla2 <- update(fmla, paste(". ~ . | ", paste(f1, collapse= " + "), sep=""))
# CHANGE x to all 78 variables
fmla <- as.formula( paste("y ~ ", paste(x1, collapse=" + ", sep=""), sep=""))
fmla2 <- update(fmla, paste(". ~ . | ", paste(f1, collapse= " + "), sep=""))
我在Windows和Linux(64位)上运行了此程序,但使用全部78个术语时(甚至使用超过78个术语),两者都失败了。错误消息显示Error in parse(text = x) : :1:514: unexpected ')'。
如果更改x变量的名称长度,则会破坏具有更少变量的update(),但总是出现错误,指向超过512个字符。
是否有解决方法?
谢谢。