用R做线性回归

1、对X,Y做线性回归，编程如下：

x<-c(2,5,7,9,10,13,17,19,23)

y<-c(4,9,13,19,22,27,29,33,36)

z<-lm(x~y)

2、求的相关系数，和相关系数的平方

> cor(x,y)

[1] 0.9758182

> cor(x,y)^2

[1] 0.9522211

3、做出残差的散点图和QQ图，看是否在同一条直线上面：

lm.res<-lm(x~y)

lm.resides<-resid(lm.res)

plot(lm.resides)

qqnorm(lm.resides)