Não complique o fácil!!

da=data.frame(A=rep(LETTERS[1:3],3),
                      B=rep(letters[1:3],3),
                      y=rnorm(9),
                      x=rnorm(9),
                      z=rnorm(9))

aggregate(da[,-c(1:2)],
               list(A=da[['A']],
                    B=da[['B']]),
               function(x) c('Média'=mean(x),
                                  'Desvio'=sd(x),
                                  'CV'=sd(x)/mean(x)*100))

(S,f,P)
Allaman
_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código 
mínimo reproduzível.

Responder a