用R语言来演示一般线性回归模型

感觉用R语言太简单了

> cars <-  read.csv("D\\racv.csv")
Error in file(file, "rt") : 无法打开链结
此外: Warning message:
In file(file, "rt") : 无法打开文件'D\racv.csv': No such file or directory
载入数据
> cars <-  read.csv("D:\\racv.csv")
录入字段
> Mymodel <- lm(lp100km ~ mass.kg , data=cars)
输出数据详细信息
> summary(Mymodel)

Call:
lm(formula = lp100km ~ mass.kg, data = cars)

Residuals:
     Min       1Q   Median       3Q      Max 
-0.71186 -0.24574 -0.02938  0.24193  0.69276 

Coefficients:
             Estimate Std. Error t value Pr(>|t|)    
(Intercept) -0.817768   0.506422  -1.615    0.123    
mass.kg      0.008024   0.000387  20.733 1.65e-14 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 0.3891 on 19 degrees of freedom
Multiple R-squared:  0.9577,    Adjusted R-squared:  0.9554 
F-statistic: 429.9 on 1 and 19 DF,  p-value: 1.653e-14
画出数据散点图
> plot(lp100km ~ mass.kg,data=cars)
用一般线性回归模型拟合数据
> abline(Mymodel)

plot(lp100km ~ mass.kg,data=cars):

abline(Mymodel):