【发布时间】:2016-10-23 13:51:40
【问题描述】:
我有线性模型,我想每周使用更新的数据运行一次,然后提取并打印估计系数以及标题。例如:
data <- mtcars
fit <- lm(mpg ~ cyl + disp + hp, data = data)
summary(fit)
Call:
lm(formula = mpg ~ cyl + disp + hp, data = data)
Residuals:
Min 1Q Median 3Q Max
-4.0888899 -2.0845357 -0.7744705 1.3971991 6.9183052
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 34.18491917 2.59077758 13.19485 0.00000000000015372 ***
cyl -1.22741994 0.79727631 -1.53952 0.134904
disp -0.01883809 0.01040369 -1.81071 0.080929 .
hp -0.01467933 0.01465087 -1.00194 0.324952
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 3.055261 on 28 degrees of freedom
Multiple R-squared: 0.7678877, Adjusted R-squared: 0.7430186
F-statistic: 30.8771 on 3 and 28 DF, p-value: 0.000000005053802
我的最终目标是将以下内容输出到 csv(或类似)文件。
(Intercept) 34.18491917
cyl -1.22741994
disp -0.01883809
hp -0.01467933
是否有任何简单的方法可以访问合适的数据,还是必须手动完成?
【问题讨论】:
-
阅读帮助(“coef”)。这在帮助(“lm”)中链接。
标签: r export-to-csv lm