Bom dia senhores! Novamente venho recorrer a ajuda dos senhores! Vamos supor o seguinte: DADOSS <- expand.grid(sitio=1,ponto=as.character(c('SS')),serie=2,camara=as.character(LETTERS[1:5]),tempo=c(0,15,30,45),armazen=c('VIDRO','HEAD','PP')) which <- 'armazen' x <- DADOSS[,c(1,3,5)] y <- DADOSS vars <- list() for(i in levels(y[[which]])){ vars[[i]] <- subset(cbind(x,groups=y[[which]]), groups==i) vars[[i]][,!(colnames(dd[[i]]) %in% c('groups'))] } vars Vejam que o meu objetivo é remover a coluna 'groups' de cada lista. No entanto, a linha " vars[[i]][,!(colnames(dd[[i]]) %in% c('groups'))]" não funciona! Alguém tem alguma sugestão? OBS: 'Éder, peguei o seu CMR emprestado ok?' Desde já, grato novamente! \begin{signature} <<>>= Prof. Dr. Ivan Bezerra Allaman Universidade Estadual de Santa Cruz Departamento de Ciências Exatas e Tecnológicas Ilhéus/BA - Brasil Fone: +55 73 3680-5596 E-mail: ivanalaman@yahoo.com.br/ivanalaman@gmail.com @ \end{signature}