问题描述
我只想基于 2 个自变量执行多元线性回归,但是当我想尝试几个变量组合时,自变量会发生变化。我设法进行了回归。
然后,我只想从回归中获取 R 平方和 p 值,然后在数据框中进行编译。我也设法得到了。但是,我也希望数据框中的第一列或索引列是模型列表,但我无法得到。
我的编码如下:
fits = list()
fits$model1 = lm(mpg~cyl + disp,data = multitest)
fits$model2 = lm(odr~cyl + hp,data = multitest)
fits$model3 = lm(odr~cyl + drat,data = multitest)
fits$model4 = lm(odr~cyl + wt,data = multitest)
fits$model5 = lm(odr~disp + hp,data = multitest)
fits$model6 = lm(odr~disp + drat,data = multitest)
fits$model7 = lm(odr~disp + wt,data = multitest)
fits$model8 = lm(odr~drat + wt,data = multitest)
fits$model9 = lm(odr~drat + hp,data = multitest)
fits$model10 = lm(odr~wt + hp,data = multitest)
res_rsq = do.call(rbind,lapply(fits,function(y) summary(y)$r.squared))
res_pval = do.call(rbind,function(z) summary(z)$coefficients[2,4]))
res_combine = data.frame(Model = y,Rsquared = res_rsq,pvalue = res_pval)
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)