[英]should R-squared and adj.R-squared be the same in a linear regression model with single predictor?
[英]Get list of R-squared values for linear regression model as we incrementally add predictors
我有一个基于14个x值(x1到x14)预测y的回归。 我想编写一个进行回归的循环,在该循环中,循环的每次迭代都会为回归增加一个预测变量,然后告诉我r平方是什么。 这是我的代码:
rsqvals <- rep(NA, 15)
for (i in 1:15){
simtemp2 <- simdata[, 1:i]
modeL <- lm(y ~ ., data=simtemp2)
rsqvals[i] <- summary(modeL)$r.squared
}
其中simdata
是我的数据框架,而simtemp2
是我想要的列。 我怀疑问题与无法输入simdata[, 1:i]
,但我不确定为什么不这样做。 任何帮助表示赞赏!
看起来您在第一次迭代中对data.frame的设置过多。 在您的第一次迭代中,您将获得simtemp2 <- simdata[,1:1]
。 该操作的结果是simtemp2
的向量。 即使将simtemp2
转换回data.frame
, lm()
也不会将其作为参数使用。 尝试从2开始,看看是否可行:
rsqvals <- rep(NA, 15)
interceptonly <- lm(y~1,data=simdata) ### no features, only the intercept
### this isn't statistically meaningful, but I put it here for completeness
rsqvals[1] <- summary(interceptonly)$r.squared
for (i in 2:15){
simtemp2 <- simdata[, 1:i]
modeL <- lm(y ~ ., data=simtemp2)
rsqvals[i] <- summary(modeL)$r.squared
}
print(rsqvals)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.