Faltou salvar o vars[[i]][,!(colnames(vars[[i]]) %in% c('groups'))] em cima de vars[[i]], nao?<div><br><div class="gmail_quote">2012/9/28 Ivan Bezerra Allaman <span dir="ltr"><<a href="mailto:ivanalaman@yahoo.com.br" target="_blank">ivanalaman@yahoo.com.br</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div style="font-size:12pt;font-family:arial,helvetica,sans-serif"><div><span>Bom dia senhores!</span></div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:arial,helvetica,sans-serif">
<br><span></span></div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:arial,helvetica,sans-serif"><span>Novamente venho recorrer a ajuda dos senhores! Vamos supor o seguinte:</span></div>
<div style="font-style:normal;font-size:16px;background-color:transparent;font-family:arial,helvetica,sans-serif"><br><span></span></div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:arial,helvetica,sans-serif">
<span>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'))<br>which <- 'armazen' <br>x  <- DADOSS[,c(1,3,5)]<br>
y <- DADOSS<br>vars <- list()<br>for(i in levels(y[[which]])){<br>   vars[[i]] <- subset(cbind(x,groups=y[[which]]), groups==i)<br>   vars[[i]][,!(colnames(dd[[i]]) %in% c('groups'))]<br>}<br>vars</span></div>
<div style="font-style:normal;font-size:16px;background-color:transparent;font-family:arial,helvetica,sans-serif"><span><br></span></div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:arial,helvetica,sans-serif">
<span>Vejam que o meu objetivo é remover a coluna 'groups' de cada lista. No entanto, a linha "</span><br><span> vars[[i]][,!(colnames(dd[[i]]) %in% c('groups'))]" não funciona!</span></div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:arial,helvetica,sans-serif">
<br><span></span></div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:arial,helvetica,sans-serif"><span>Alguém tem alguma sugestão?</span></div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:arial,helvetica,sans-serif">
<br><span></span></div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:arial,helvetica,sans-serif"><span>OBS: 'Éder, peguei o seu CMR emprestado ok?'</span></div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:arial,helvetica,sans-serif">
<br><span></span></div><div style="font-style:normal;font-size:16px;background-color:transparent;font-family:arial,helvetica,sans-serif"><span>Desde já, grato novamente!<br></span></div><div style="background-color:transparent" align="center">
<font style="background-color:transparent" face="comic sans ms" size="2"><font size="1"><b><br></b></font></font></div><div style="text-align:left;background-color:transparent" align="center"><font style="background-color:transparent"><font face="courier, monaco, monospace, sans-serif">\begin{signature}</font></font></div>
<div style="text-align:left;background-color:transparent" align="center"><font style="background-color:transparent"><font face="courier, monaco, monospace, sans-serif"><<>>=</font></font></div><div style="text-align:left;background-color:transparent" align="center">
<font face="courier, monaco, monospace, sans-serif">Prof. Dr. Ivan Bezerra Allaman</font></div><div style="text-align:left;background-color:transparent" align="center"><font face="courier, monaco, monospace, sans-serif">Universidade Estadual de Santa Cruz</font></div>
<div style="text-align:left;background-color:transparent" align="center"><font face="courier, monaco, monospace, sans-serif">Departamento de Ciências Exatas e Tecnológicas</font></div><div style="text-align:left;background-color:transparent" align="center">
<font face="courier, monaco, monospace, sans-serif">Ilhéus/BA - Brasil</font></div><div style="text-align:left;background-color:transparent" align="center"><font face="courier, monaco, monospace, sans-serif">Fone: <a href="tel:%2B55%2073%203680-5596" value="+557336805596" target="_blank">+55 73 3680-5596</a></font></div>
<div style="text-align:left;background-color:transparent" align="center"><font face="courier, monaco, monospace, sans-serif">E-mail: <a href="http://ivanalaman@yahoo.com.br/ivanalaman@gmail.com" target="_blank">ivanalaman@yahoo.com.br/ivanalaman@gmail.com</a></font></div>
<div style="text-align:left;background-color:transparent" align="center"><font style="background-color:transparent"><font face="courier, monaco, monospace, sans-serif">@</font></font></div><div style="text-align:left;background-color:transparent" align="center">
<font style="background-color:transparent"><font face="courier, monaco, monospace, sans-serif">\end{signature}</font></font></div></div></div><br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>