######## Modelo de regressão linear simples para score nos dados Machines library(nlme) attach(Machines) score.cor <- matrix(score,ncol=3,byrow=T) y <- rowMeans(score.cor) x <- (c(rep('A',6),rep('B',6),rep('C',6))) lm(y~x) ######## Covariância e correlação nos dados Machines library(nlme) attach(Machines) score.cor <- matrix(score,ncol=3, byrow=T) cov(score.cor) cor(score.cor) detach(Machines) ######## Covariância e correlação nos dados Orthodont attach(Orthodont) distance.cor <- matrix(score,ncol=4,byrow=T) cov(distance.cor) cor(distance.cor) detach(Orthodont)