Leandro,<div>acho que pode ser assim,</div><div><div>### Vetor</div><div>apply(expand.grid(0:5,0:2,1:2,0:2),1,function(x){paste(x,collapse='')})</div><div>### Segunda parte</div><div>set.seed(1)</div><div>x <- rnorm(1000,500,100)</div>
<div>y <- trunc(runif(1000,1,10))</div><div>fper <- function(x){mean(x-500)/100}</div><div>require(plyr)</div><div>ldply(tapply(x,y,function(x){c(mean(x),sd(x),fper(x))}))</div><div>Att</div><br><div class="gmail_quote">
Em 18 de agosto de 2011 09:38, Leandro Marino <span dir="ltr"><<a href="mailto:leandro@cesgranrio.org.br">leandro@cesgranrio.org.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
#Caros, existe alguma forma de melhorar este exemplo:<br>
<br>
vetor <- rep('0',108)<br>
z=1<br>
for(i in 0:5){<br>
  for(j in 0:2){<br>
    for(k in 1:2){<br>
      for (l in 0:2){<br>
        vetor[z] <- paste(i,j,k,l,sep='')<br>
        z = z + 1<br>
      }<br>
    }<br>
  }<br>
}<br>
vetor<br>
<br>
#Aproveitando, se quero usar um tapply extraindo média,<br>
#desvio-padrão e uma função personalizada, alguém saberia com fazer as<br>
#três funções de uma vez só?<br>
<br>
#Gostaria de executar o comando abaixo de uma única vez em um tapply.<br>
#Alguma sugestão?!<br>
<br>
set.seed(1)<br>
x <- rnorm(1000,500,100)<br>
y <- trunc(runif(1000,1,10))<br>
fper <- function(x){mean(x-500)/100}<br>
dataframe <- t(rbind(tapply(x,y,mean),tapply(x,y,sd),tapply(x,y,fper)))<br>
colnames(dataframe) <- c('media','desvp','fper')<br>
dataframe<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
Atenciosamente,<br>
Leandro Lins Marino<br>
Centro de Avaliação<br>
Fundação CESGRANRIO<br>
Rua Santa Alexandrina, 1011 - 2º andar<br>
Rio de Janeiro, RJ - CEP: 20261-903<br>
R (21) 2103-9600 R.:236<br>
( <a href="mailto:leandro@cesgranrio.org.br">leandro@cesgranrio.org.br</a><br>
<br>
  Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO AMBIENTE<br>
<br>
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.<br>

Portanto, se você recebeu esta mensagem por engano, por favor, nos informe respondendo imediatamente a este e-mail e em seguida apague-a.<br>
<br>
<br>
<br>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</blockquote></div><br></div>