<div dir="ltr"><font color="#333333"><font><font face="trebuchet ms,sans-serif">Valeu caros! Vou testar todas as sugestões.</font></font></font><div><font color="#333333"><font><font face="trebuchet ms,sans-serif"><br></font></font></font></div>


<div><font color="#333333"><font><font face="trebuchet ms,sans-serif">B, os df's eu já tenho. São umas (muitas) importações! :)</font></font></font></div><div class="gmail_extra"><br><br><div class="gmail_quote">
Em 17 de janeiro de 2013 16:41, Benilton Carvalho <span dir="ltr"><<a href="mailto:beniltoncarvalho@gmail.com" target="_blank">beniltoncarvalho@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">


se vc criar o seu 'temp' de forma q ele contenha um indice para o<br>
grupo, conforme abaixo (onde eu apenas forco a barra p criar o<br>
data.frame do jeito q eu imagino ser melhor, vc pode cria-lo de modo<br>
bem mais eficaz dentro do seu primeiro for() ):<br>
<br>
temp = do.call(rbind, lapply(1:length(temp), function(i) cbind(i, temp[[i]])))<br>
<br>
enfim, com o 'tempo' como acima, tudo o que vc precisa e':<br>
<br>
with(temp, table(i, Tipo))<br>
<br>
b<br>
<div><div><br>
On 17 January 2013 17:53, Walmes Zeviani <<a href="mailto:walmeszeviani@gmail.com" target="_blank">walmeszeviani@gmail.com</a>> wrote:<br>
> Uma coisa que o Benilton sempre faz quando o for() envolve um número<br>
> conhecido fixo de elementos é criar o objeto do tamanho de etapas do for()<br>
><br>
> #temp <- list() # troque por<br>
> temp <- vector(mode="list", lenght=20)<br>
> #for(i in 1:20){ # troque por<br>
> D <- data.frame(matrix(ncol=3,nrow=100))<br>
> colnames(D) <- c('ID','Tipo','Valor')<br>
> for(i in 1:length(temp)){<br>
> #    temp[[i]] <- data.frame(matrix(ncol=3,nrow=100)) # pode ser criada fora<br>
> do laço, D<br>
> #    colnames(temp[[i]]) <- c('ID','Tipo','Valor')<br>
>     temp[[i]] <- D<br>
>     temp[[i]]$ID    <- paste(i,sprintf("%03d",1:100),sep='')<br>
>     temp[[i]]$Tipo  <- factor(sample(0:10,100,replace=T),levels=c(0:10))<br>
>     temp[[i]]$Valor <- rnorm(100,100,20)<br>
> }<br>
> dado <- data.frame(matrix(ncol=13,nrow=20))<br>
> colnames(dado) <- c('ID',paste('Tipo',sprintf('%02d',0:10),sep=''),'TipoNA')<br>
> for(i in 1:20){<br>
> dado[i,] <- c(i,table(temp[[i]]$Tipo,exclude=NULL))<br>
> }<br>
><br>
> Não explorei tudo que pode ser alterado. Ao mesmo tempo você pode fazer isso<br>
> com a função replicate() também.<br>
><br>
> À disposição.<br>
><br>
> ==========================================================================<br>
> Walmes Marques Zeviani<br>
> LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)<br>
> Departamento de Estatística - Universidade Federal do Paraná<br>
> fone: <a href="tel:%28%2B55%29%2041%203361%203573" value="+554133613573" target="_blank">(+55) 41 3361 3573</a><br>
> VoIP: (3361 3600) 1053 1173<br>
> e-mail: <a href="mailto:walmes@ufpr.br" target="_blank">walmes@ufpr.br</a><br>
> skype: walmeszeviani<br>
> twitter: @walmeszeviani<br>
> homepage: <a href="http://www.leg.ufpr.br/~walmes" target="_blank">http://www.leg.ufpr.br/~walmes</a><br>
> linux user number: 531218<br>
> ==========================================================================<br>
><br>
</div></div>> _______________________________________________<br>
> R-br mailing list<br>
> <a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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<br>
> mínimo reproduzível.<br>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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.<br>
</blockquote></div><br></div></div>