[R-br] RES: Contrastes e função

[Leandro Marino]

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 em 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 em listas.c3sl.ufpr.br [mailto:r-br-bounces em listas.c3sl.ufpr.br] Em nome de Benilton Carvalho
Enviada em: quinta-feira, 18 de agosto de 2011 09:51
Para: r-br em 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 em 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.