<div dir="ltr"><font color="#333333"><font><font face="trebuchet ms,sans-serif">Caros,</font></font></font><div><font color="#333333"><font><font face="trebuchet ms,sans-serif"><br></font></font></font></div><div style><font color="#333333"><font><font face="trebuchet ms,sans-serif">tudo bem? Estou com um código que gostaria de otimizar. Notem que faço um for para fazer tabulações simples.</font></font></font></div>

<div style><font color="#333333"><font><font face="trebuchet ms,sans-serif"><br></font></font></font></div><div style><font color="#333333"><font><font face="trebuchet ms,sans-serif">Como posso otimizar este código? Tenho que realizar 3k~4k tabelas...</font></font></font></div>

<div style><font color="#333333"><font><font face="trebuchet ms,sans-serif"><br></font></font></font></div><div style><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><br></div><div style>Pensei algo com do.call ou sapply, mas não sei como definir apenas uma coluna...</div><div style>

<br></div><div style>Abraços,</div><div style>Leandro</div></font></font></font></div></div>