用R做线性回归

对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)

求的相关系数，和相关系数的平方 > cor(x,y) [1] 0.9758182 > cor(x,y)^2 [1] 0.9522211

做出残差的散点图和QQ图，看是否在同一条直线上面： lm.res<-lm(x~y) lm.resides<-resid(lm.res) plot(lm.resides) qqnorm(lm.resides)