[R-br] Contrastes e função

[Eder David Borges da Silva]

Leandro,
acho que pode ser assim,
### Vetor
apply(expand.grid(0:5,0:2,1:2,0:2),1,function(x){paste(x,collapse='')})
### Segunda parte
set.seed(1)
x <- rnorm(1000,500,100)
y <- trunc(runif(1000,1,10))
fper <- function(x){mean(x-500)/100}
require(plyr)
ldply(tapply(x,y,function(x){c(mean(x),sd(x),fper(x))}))
Att

Em 18 de agosto de 2011 09:38, Leandro Marino
<leandro em cesgranrio.org.br>escreveu:

> #Caros, existe alguma forma de melhorar este exemplo:
>
> vetor <- rep('0',108)
> z=1
> for(i in 0:5){
>  for(j in 0:2){
>    for(k in 1:2){
>      for (l in 0:2){
>        vetor[z] <- paste(i,j,k,l,sep='')
>        z = z + 1
>      }
>    }
>  }
> }
> vetor
>
> #Aproveitando, se quero usar um tapply extraindo média,
> #desvio-padrão e uma função personalizada, alguém saberia com fazer as
> #três funções de uma vez só?
>
> #Gostaria de executar o comando abaixo de uma única vez em um tapply.
> #Alguma sugestão?!
>
> set.seed(1)
> x <- rnorm(1000,500,100)
> y <- trunc(runif(1000,1,10))
> fper <- function(x){mean(x-500)/100}
> dataframe <- t(rbind(tapply(x,y,mean),tapply(x,y,sd),tapply(x,y,fper)))
> colnames(dataframe) <- c('media','desvp','fper')
> dataframe
>
>
>
>
>
>
>
>
>
> 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.
>
>
>
> _______________________________________________
> 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.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20110818/fe00343e/attachment.html>