警告信息：要替换的项目数不是替换长度的倍数

Question

运行此代码时收到警告。

例如，当我把 tm1<- summary(tmfit)[c(4,8,9)], 我可以得到结果，但我需要为每个 $i$ 运行此代码。

为什么会出现此错误？

有什么方法可以代替for 循环来做到这一点？

具体来说，我有许多回归量 ($y$) 具有相同的两个回归量 ($x$'s)。

我怎样才能得到这些回归分析的结果（做一些比较）？

dreg=read.csv("dayreg.csv")
fundr=read.csv("fundreturnday.csv")
num=ncol(fundr)
exr=dreg[,2]
tm=dreg[,4]
for(i in 2:num)
{
  tmfit=lm(fundr[,i]~exr+tm)
  tm1[i]<- summary(tmfit)[c(4,8,9)]
}

非常感谢任何帮助

Answer 1

尝试将结果存储到列表而不是向量中。

dreg=read.csv("dayreg.csv")
fundr=read.csv("fundreturnday.csv")
num=ncol(fundr)
exr=dreg[,2]
tm = list()
for(i in 2:num)
{
  tmfit=lm(fundr[,i]~exr+tm)
  tm1[[i]]<- summary(tmfit)[c(4,8,9)]
}

你可以像这样查看列表中的元素

tm1[[2]]