<div dir="ltr"><div class="gmail_extra" style>A ideia é automatizar só o 2o for() né? Se for:</div><div class="gmail_extra">t(sapply(temp,function(x) table(x$Tipo,useNA='always')))<br></div><div class="gmail_extra">
<br></div><div class="gmail_extra" style>Depois é só acrescentar a 1a coluna com os ids (ou usar rownames pra isso) e arrumar os nomes das colunas. Só acho que vai dar erro se em algum tipo não aparecer em todos cenários</div>
<div class="gmail_extra"><br></div><div class="gmail_extra" style><br></div><div class="gmail_extra"><br></div><div class="gmail_extra"><br><div class="gmail_quote">On Thu, Jan 17, 2013 at 3:35 PM, Leandro Marino <span dir="ltr"><<a href="mailto:leandromarino@leandromarino.com.br" target="_blank">leandromarino@leandromarino.com.br</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><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"><div>temp <- list()</div><div>for(i in 1:20){</div>

<div>    temp[[i]] <- data.frame(matrix(ncol=3,nrow=100))</div><div>    colnames(temp[[i]]) <- c('ID','Tipo','Valor')</div><div>    temp[[i]]$ID    <- paste(i,sprintf("%03d",1:100),sep='')</div>


<div>    temp[[i]]$Tipo  <- factor(sample(0:10,100,replace=T),levels=c(0:10))</div><div>    temp[[i]]$Valor <- rnorm(100,100,20)</div><div>}</div><div>dado <- data.frame(matrix(ncol=13,nrow=20))</div><div>colnames(dado) <- c('ID',paste('Tipo',sprintf('%02d',0:10),sep=''),'TipoNA')</div>


<div>for(i in 1:20){</div><div>dado[i,] <- c(i,table(temp[[i]]$Tipo,exclude=NULL))</div><div>}</div><div></div></font></font></font></div></blockquote></div><br><br></div></div>