[R-br] Otimização de código
Rodrigo Coster
rcoster em gmail.com
Quinta Janeiro 17 15:52:51 BRST 2013
A ideia é automatizar só o 2o for() né? Se for:
t(sapply(temp,function(x) table(x$Tipo,useNA='always')))
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
On Thu, Jan 17, 2013 at 3:35 PM, Leandro Marino <
leandromarino em leandromarino.com.br> wrote:
>
> temp <- list()
> for(i in 1:20){
> temp[[i]] <- data.frame(matrix(ncol=3,nrow=100))
> colnames(temp[[i]]) <- c('ID','Tipo','Valor')
> temp[[i]]$ID <- paste(i,sprintf("%03d",1:100),sep='')
> temp[[i]]$Tipo <- factor(sample(0:10,100,replace=T),levels=c(0:10))
> temp[[i]]$Valor <- rnorm(100,100,20)
> }
> dado <- data.frame(matrix(ncol=13,nrow=20))
> colnames(dado) <-
> c('ID',paste('Tipo',sprintf('%02d',0:10),sep=''),'TipoNA')
> for(i in 1:20){
> dado[i,] <- c(i,table(temp[[i]]$Tipo,exclude=NULL))
> }
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130117/31d7323a/attachment.html>
Mais detalhes sobre a lista de discussão R-br