se vc criar o seu 'temp' de forma q ele contenha um indice para o grupo, conforme abaixo (onde eu apenas forco a barra p criar o data.frame do jeito q eu imagino ser melhor, vc pode cria-lo de modo bem mais eficaz dentro do seu primeiro for() ):
temp = do.call(rbind, lapply(1:length(temp), function(i) cbind(i, temp[[i]]))) enfim, com o 'tempo' como acima, tudo o que vc precisa e': with(temp, table(i, Tipo)) b On 17 January 2013 17:53, Walmes Zeviani <[email protected]> wrote: > Uma coisa que o Benilton sempre faz quando o for() envolve um número > conhecido fixo de elementos é criar o objeto do tamanho de etapas do for() > > #temp <- list() # troque por > temp <- vector(mode="list", lenght=20) > #for(i in 1:20){ # troque por > D <- data.frame(matrix(ncol=3,nrow=100)) > colnames(D) <- c('ID','Tipo','Valor') > for(i in 1:length(temp)){ > # temp[[i]] <- data.frame(matrix(ncol=3,nrow=100)) # pode ser criada fora > do laço, D > # colnames(temp[[i]]) <- c('ID','Tipo','Valor') > temp[[i]] <- D > 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)) > } > > Não explorei tudo que pode ser alterado. Ao mesmo tempo você pode fazer isso > com a função replicate() também. > > À disposição. > > ========================================================================== > Walmes Marques Zeviani > LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W) > Departamento de Estatística - Universidade Federal do Paraná > fone: (+55) 41 3361 3573 > VoIP: (3361 3600) 1053 1173 > e-mail: [email protected] > skype: walmeszeviani > twitter: @walmeszeviani > homepage: http://www.leg.ufpr.br/~walmes > linux user number: 531218 > ========================================================================== > > _______________________________________________ > R-br mailing list > [email protected] > https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br > Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código > mínimo reproduzível. _______________________________________________ R-br mailing list [email protected] https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
