Benilton, Obrigado! Atenciosamente, Leandro Lins Marino Centro de Avaliação Fundação CESGRANRIO Rua Santa Alexandrina, 1011 - 2º andar Rio de Janeiro, RJ - CEP: 20261-903 R (21) 2103-9600 R.:236 ( leandro@cesgranrio.org.br Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO AMBIENTE Esta mensagem, incluindo seus anexos, pode conter informacoes privilegiadas e/ou de carater confidencial, nao podendo ser retransmitida sem autorizacao do remetente. Se voce nao e o destinatario ou pessoa autorizada a recebe-la, informamos que o seu uso, divulgacao, copia ou arquivamento sao proibidos. Portanto, se você recebeu esta mensagem por engano, por favor, nos informe respondendo imediatamente a este e-mail e em seguida apague-a. -----Mensagem original----- De: r-br-bounces@listas.c3sl.ufpr.br [mailto:r-br-bounces@listas.c3sl.ufpr.br] Em nome de Benilton Carvalho Enviada em: quinta-feira, 18 de agosto de 2011 09:51 Para: r-br@listas.c3sl.ufpr.br Assunto: Re: [R-br] Contrastes e função Pergunta1) sort(apply(expand.grid(0:5, 0:2, 1:2, 0:2), 1, paste, collapse='')) Pergunta2) do.call(rbind, tapply(x, y, function(z) c(media=mean(z), desvp=sd(z), fper=fper(z)))) ou aggregate(x, by=list(Grupo=y), function(z) c(media=mean(z), desvp=sd(z), fper=fper(z))) ou, se vc quiser "embelezar": g = function(z) c(media=mean(z), desvp=sd(z), fper=fper(z)) do.call(rbind, tapply(x, y, g)) aggregate(x, by=list(Grupo=y), g) b _______________________________________________ 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.