警告信息：要更换的物品数量不是更换长度的倍数

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]]