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(l罪焐芡拂m.resides)
