Question

我需要创建150个线性回归模型，每个模型有4个变量，并将每个回归的结果作为数据存储在数据框中，并具有以下列：R平方，每个变量的p值，F-统计。这是我的代码：

    model2 <- data.frame()
    A2 <-list()
    for (i in 1:150){
    A2[[i]]=lm(AQ~TT[,i+1]+TT[,151+i]+TT[,301+i]+TT[,451+i],data=TT,na.action=na.omit)
    model2[i,1]=summary(A2[[i]])$r.squared
    model2[i,2:5]=summary(A2[[i]])$coefficients[,4][c("TT[, i + 1]", "TT[, 151 + i]", "TT[, 301 + i]", "TT[, 451 + i]")]  
    model2[i,6]=pf(summary(A2[[i]])$fstatistic[1],summary(A2[[i]])$fstatistic[2],summary(A2[[i]])$fstatistic[3],lower.tail=FALSE) 
    }

在原始数据集中，我有一些全零的列（变量），因此结果中将有NA p值。我想要这样的结果表： I just take a screenshot of rows of the result table

这是我的错误消息：Error in '*tmp*'[[j]] : recursive indexing failed at level 2 我认为是model2[i,2:5]...行引起此错误。请问如何修改代码并获得所需的结果表？

将多个多元回归的结果（p值，r平方..）存储到R中的数据框中

0 个答案: