<!DOCTYPE html>
<html>
<head>
<title></title>
</head>
<body><div>Ou, dependendo da intenção:<br></div>
<div> </div>
<div>head(ChickWeight)<br></div>
<div>ChickWeight$weight <- NULL<br></div>
<div>head(ChickWeight)<br></div>
<div> </div>
<div>Espero que ajude.<br></div>
<div> </div>
<div id="sig4487139"><div class="signature" id="signature"><a href="http://lattes.cnpq.br/9234772336296638" title="Currículo Lattes">Leonardo Ferreira Fontenelle</a><br></div>
</div>
<div> </div>
<div> </div>
<div>Em Dom 28 fev. 2016, às 11:59, Rodrigo Coster escreveu:<br></div>
<blockquote type="cite"><div dir="ltr"><div>Não é mais fácil usar subset() e o parâmetro select ?<br></div>
<div> </div>
<div>head(ChickWeight)<br></div>
<div>head(subset(ChickWeight, select = -c(Time, Chick)))<br></div>
<div> </div>
</div>
<div><div> </div>
<div><div>2016-02-28 8:55 GMT-03:00 Elias Carvalho <span dir="ltr"><<a href="mailto:ecacarva@gmail.com">ecacarva@gmail.com</a>></span>:<br></div>
<blockquote style="margin-top:0px;margin-right:0px;margin-bottom:0px;margin-left:0.8ex;border-left-width:1px;border-left-style:solid;border-left-color:rgb(204, 204, 204);padding-left:1ex;"><div dir="ltr"><div><span style="font-size:12.8px" class="size">Ola Pessoal</span><br></div>
<div style="font-size:12.8px;"> </div>
<div style="font-size:12.8px;">Para facilitar a vida de um usuário leigo, eu criei uma função para excluir as colunas de uma tabela, conforme código abaixo:<br></div>
<div style="font-size:12.8px;"> </div>
<div style="font-size:12.8px;"><div><ol><li style="margin-left:15px;">remove.variables <- function(<a href="http://dataset.name/">dataset.name</a>, vars.to.remove)<br></li><li style="margin-left:15px;">{<br></li><li style="margin-left:15px;"> # scan the variables to be removed<br></li><li style="margin-left:15px;"> for (x in 1 : length(vars.to.remove))<br></li><li style="margin-left:15px;"> {<br></li><li style="margin-left:15px;"> # transform command.Remove in "data$variable <- NULL"<br></li><li style="margin-left:15px;"> command.Remove <- paste(<a href="http://dataset.name/">dataset.name</a>,"$",vars.to.remove[x], " <- NULL",sep="")<br></li><li style="margin-left:15px;"> # execute the command<br></li><li style="margin-left:15px;"> command.Remove <- eval(parse(text=command.Remove))<br></li><li style="margin-left:15px;"> } # for (x in 1 : length(vars.to.remove))<br></li><li style="margin-left:15px;">} # remove.variables <- function(<a href="http://dataset.name/">dataset.name</a>, vars.to.remove)<br></li></ol></div>
<div> </div>
<div>Fazendo um teste local, ou seja, executando o procedimento abaixo com as variáveis<a href="http://dataset.name/">dataset.name</a>, vars.to.remove carregadas respectivamente com o nome do meu data frame "data" e com o nome de duas variáveis "var1" e "var5" a serem removidas e executando da linha 2 a 11 tudo tunciona bem e as colunas são removidas.<br></div>
<div> </div>
<div><a href="http://dataset.name/">dataset.name</a> <- "data"<br></div>
<div>vars.to.remove<-c("var1", "var5")<br></div>
<div> </div>
<div>No entanto se carrego a função e executo os procedimentos abaixo em outro script, a função é executada sem erro, mas não remove nenhuma coluna do data frame:<br></div>
<div> </div>
<div><div>vars.to.remove = c("var1", "var5")<br></div>
<div><a href="http://dataset.name/">dataset.name</a> = "data"<br></div>
<div> </div>
<div>remove.variables(<a href="http://dataset.name/">dataset.name</a>, vars.to.remove)<br></div>
</div>
<div> </div>
<div>Eu acredito que tem a ver com o ambiente, acesso global algo assim mas não estou achando a solução.<br></div>
<div> </div>
<div>Agradeço se aguem puder me ajudar.<br></div>
</div>
<div> </div>
<div> </div>
<div><span><span style="color:rgb(136, 136, 136)" class="colour">-- <br></span></span></div>
<div><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><div><span><span style="color:rgb(136, 136, 136)" class="colour">Best regards... 8^)<br><br>“<span style="font-size:12.8px" class="size">The mind that is open to new ideas never come back</span></span></span></div>
<div><span><span style="color:rgb(136, 136, 136)" class="colour"><span style="font-size:12.8px" class="size">to its original size</span>” <i style="margin-top:0px;margin-right:0px;margin-bottom:0px;margin-left:0px;padding-top:0px;padding-right:0px;padding-bottom:0px;padding-left:0px;border-top-width:0px;border-right-width:0px;border-bottom-width:0px;border-left-width:0px;border-top-style:none;border-right-style:none;border-bottom-style:none;border-left-style:none;border-top-color:-moz-use-text-color;border-right-color:-moz-use-text-color;border-bottom-color:-moz-use-text-color;border-left-color:-moz-use-text-color;-moz-border-top-colors:none;-moz-border-right-colors:none;-moz-border-bottom-colors:none;-moz-border-left-colors:none;border-image-source:none;border-image-slice:100% 100% 100% 100%;border-image-width:1 1 1 1;border-image-outset:0 0 0 0;border-image-repeat:stretch stretch;font-style:inherit;font-variant-alternates:inherit;font-variant-caps:inherit;font-variant-east-asian:inherit;font-variant-ligatures:inherit;font-variant-numeric:inherit;font-variant-position:inherit;font-weight:inherit;font-stretch:inherit;font-size:inherit;vertical-align:baseline;color:rgb(51, 51, 51);font-family:Arial,Verdana,sans-serif;line-height:21px;background-color:rgb(255, 255, 255);">Albert Einstein</i><span style="background-color: rgb(255, 255, 255)" class="highlight"><span style="color:rgb(51, 51, 51)" class="colour"><span style="font-family:Arial,Verdana,sans-serif" class="font"><span style="font-size:13px" class="size"></span></span></span></span><br><br><br>_____________________________________________<br>Prof. Elias César Araújo de Carvalho<br>CV: <a href="http://lattes.cnpq.br/4248328961021251">http://lattes.cnpq.br/4248328961021251</a></span></span></div>
</div>
</div>
</div>
</div>
</div>
<div> </div>
</div>
<div> </div>
<div>_______________________________________________<br></div>
<div>
R-br mailing list<br></div>
<div> <a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br></div>
<div> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br></div>
<div>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></div>
</blockquote></div>
</div>
<div><u>_______________________________________________</u><br></div>
<div>R-br mailing list<br></div>
<div><a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br></div>
<div><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br></div>
<div>Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></div>
</blockquote><div> </div>
</body>
</html>