如何将字符串打印成函数？

Question

我如何把变量＆＃34; diti＆＃34;在函数defineModel？

中

> diti
[1] " + mySMI(GSPC) + myCLV(GSPC) + myMACD(GSPC) + myrunMean(GSPC)"
data.model <- specifyModel(T.ind(GSPC) ~ Delt(Cl(GSPC),k=1) diti )
Error: unexpected symbol in "data.model <- specifyModel(T.ind(GSPC) ~ Delt(Cl(GSPC),k=1) diti"

它看起来像这样：

data.model <- specifyModel(T.ind(GSPC) ~ Delt(Cl(GSPC),k=1) + mySMI(GSPC) +    myCLV(GSPC) + myMACD(GSPC) + myrunMean(GSPC) )

谢谢，

阿龙

Answer 1

正如@josilber在评论中所解释的那样，传递给函数specifyModel()的参数需要与paste连接成一个字符串。

在您的示例中，可以使用

实现

data.model <- specifyModel(paste("T.ind(GSPC) ~ Delt(Cl(GSPC),k=1)",diti))

或

data.model <- specifyModel(eval(paste("T.ind(GSPC) ~ Delt(Cl(GSPC),k=1)",diti)))