[R-br] Contrastes e função

[Leandro Marino]

#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.