> summary(lm.re)

Call:

lm(formula = height ~ age)

Residuals:

     Min       1Q   Median       3Q      Max

-0.27238 -0.24248 -0.02762  0.16014  0.47238

Coefficients:

            Estimate Std. Error t value Pr(>|t|)   

(Intercept)  64.9283     0.5084  127.71  < 2e-16 ***

age           0.6350     0.0214   29.66 4.43e-11 ***

---

Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 0.256 on 10 degrees of freedom

Multiple R-squared:  0.9888,    Adjusted R-squared:  0.9876

F-statistic:   880 on 1 and 10 DF,  p-value: 4.428e-11

得到以上结果，怎样才能将这些保存为excel格式的文件呢

其实可以安装broom包，使用其中的tidy和glance函数，即可将回归结果转换为数据框，然后就可以保存为csv文件了。

library(broom)

mtcars.lm <- lm(mpg ~ ., mtcars)

mtcars.lm %>% tidy %>% write.csv(file = "mtcars.lm.tidy.csv")

mtcars.lm %>% glance %>% write.csv(file = "mtcars.lm.glance.csv")