> 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

得到以上結(jié)果，怎樣才能將這些保存為excel格式的文件呢

其實(shí)可以安裝broom包，使用其中的tidy和glance函數(shù)，即可將回歸結(jié)果轉(zhuǎn)換為數(shù)據(jù)框，然后就可以保存為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")