media<-mean(hamsters[,3])
media
media.por.cor<-tapply(hamsters[,3],hamsters[,2],mean)
media.por.cor
media.por.dieta<-tapply(hamsters[,3],hamsters[,1],mean)
media.por.dieta
media.cruzada<-aggregate(hamsters$peso,by=list(cor=hamsters$cor,dieta=hamsters$dieta),FUN=mean)
media.cruzada
colnames(media.cruzada)[3]<-"media.peso"