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