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)
