R systemfit:如何运行包含多个公式的列表

Question

我有一个广泛的股票回报及其滞后值的数据集。我想使用systemfit包进行SUR估计，但无法放入多个公式

我的数据集示例如下所示：

df = data.frame('stock.1' = c(0, - 0.2, 0.3, 0.5, 0.2), 'lag.stock.1'
= c(0.2,0,- 0.2, 0.3, 0.5), 'stock.2' = c(0, - 0.1, 0.4, 0.7, -0.1), 'lag.stock.2' = c(0.1,0, - 0.1, 0.4, 0.7))

如果我使用下面的代码，它可以工作

fitsur = systemfit(list(stock.1 ~ lag.stock.1, stock.2 ~ lag.stock.2), data = df)

但是我有很多股票，所以我首先创建了一个公式列表

stock.list = c("stock.1", "stock.2")
fm.list = list()
for (i in 1:length(stock.list)) {
  stock = stock.list[i]
  formula = paste0(stock,"~","lag.",stock)
  fm.list[i] = formula
}

使用此列表不起作用

fitsur = systemfit(fm.list, data = df)
Error in systemfit(fm.list, data = return.joindf) : 
  the list of argument 'formula' must contain only objects of class 'formula'

有没有正确使用公式列表的方法？

Answer 1

使用as.formula函数：

formula = paste0(stock,"~","lag.",stock)
fm.list[[i]] = as.formula(formula)