[adsense:responsibe:9545213979]
> x1<- c(rep(15,4),rep(20,3),rep(25,1),rep(15,1),rep(20,4),rep(25,7)); > y1<- c(rep(5,4),rep(5,3),rep(5,1),rep(10,1),rep(10,4),rep(10,7)); > x2<- (x1-15)/5; > y2<- (y1-5)/5; > cor(x1,y1) [1] 0.5411365 > cor(x2,y2) [1] 0.5411365
Comentarios recientes