<html>
<head>
<meta content="text/html; charset=utf-8" http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<tt>Olá<br>
<br>
O colega já lhe deu a solução, mas se é pra facilitar a vida do
usuário leigo segue sugestão<br>
<br>
(df = data.frame( a=letters[10], b=LETTERS[10], c=seq(10),
d=letters[1:10], e=letters[1:10] ))<br>
<br>
## -------- exemplo1 ----------------<br>
remove.var = function(dataname, vars)<br>
{<br>
dataname[vars] <- list(NULL)<br>
return(dataname)<br>
}##end function<br>
<br>
vars = c("a", "b")<br>
remove.var(df, vars)<br>
<br>
## -------- exemplo2 ----------------<br>
remove.var = function(dataname, vars)<br>
{<br>
return(dataname[, ! names(dataname) %in% vars, drop = FALSE])<br>
}##end function<br>
<br>
vars = c("a", "b")<br>
remove.var(df, vars)<br>
<br>
saudações<br>
</tt><br>
<div class="moz-cite-prefix">Em 28/02/2016 08:55, Elias Carvalho
escreveu:<br>
</div>
<blockquote
cite="mid:CAH8E6Uv+sdBv_6Pc_82vzhLL5hK9pqL=qJBS57nAZLiVzXWnWg@mail.gmail.com"
type="cite">
<div dir="ltr"><span style="font-size:12.8px">Ola Pessoal</span>
<div style="font-size:12.8px"><br>
</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:</div>
<div style="font-size:12.8px"><br>
</div>
<div style="font-size:12.8px">
<div>
<ol>
<li style="margin-left:15px">remove.variables <-
function(<a moz-do-not-send="true"
href="http://dataset.name/" target="_blank">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 moz-do-not-send="true"
href="http://dataset.name/" target="_blank">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 moz-do-not-send="true"
href="http://dataset.name/" target="_blank">dataset.name</a>,
vars.to.remove)<br>
</li>
</ol>
</div>
<div><br>
</div>
<div>Fazendo um teste local, ou seja, executando o
procedimento abaixo com as variáveis<a
moz-do-not-send="true" href="http://dataset.name/"
target="_blank">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.</div>
<div><br>
</div>
<div><a moz-do-not-send="true" href="http://dataset.name/"
target="_blank">dataset.name</a> <- "data"<br>
</div>
<div>vars.to.remove<-c("var1", "var5")<br>
</div>
<div><br>
</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:</div>
<div><br>
</div>
<div>
<div>vars.to.remove = c("var1", "var5")<br>
</div>
<div><a moz-do-not-send="true" href="http://dataset.name/"
target="_blank">dataset.name</a> = "data"</div>
<div><br>
</div>
<div>remove.variables(<a moz-do-not-send="true"
href="http://dataset.name/" target="_blank">dataset.name</a>,
vars.to.remove)<br>
</div>
</div>
<div><br>
</div>
<div>Eu acredito que tem a ver com o ambiente, acesso global
algo assim mas não estou achando a solução.</div>
<div><br>
</div>
<div>Agradeço se aguem puder me ajudar.</div>
</div>
<div><br>
</div>
-- <br>
<div class="gmail_signature">
<div dir="ltr">
<div>
<div dir="ltr">
<div dir="ltr">Best regards... 8^)<br>
<br>
“<span style="font-size:12.8px">The mind that is open
to new ideas never come back</span>
<div><span style="font-size:12.8px">to its original
size</span>” <i
style="margin:0px;padding:0px;border:0px;font-style:inherit;font-variant: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="font-size:13px;color:rgb(51,51,51);font-family:Arial,Verdana,sans-serif;line-height:21px;background-color:rgb(255,255,255)"> </span><br>
<br>
<br>
_____________________________________________<br>
Prof. Elias César Araújo de Carvalho<br>
CV: <a moz-do-not-send="true"
href="http://lattes.cnpq.br/4248328961021251"
target="_blank">http://lattes.cnpq.br/4248328961021251</a><br>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" 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.</pre>
</blockquote>
<br>
</body>
</html>