[R-br] Função para remover colunas

[Pedro Emmanuel Alvarenga Americano do Brasil]

Engraçado... eu usaria uma coisa do tipo


   1. remove.variables <- function(dataset.name, vars.to.remove)
   2. {
   3.   output <- dataset.name[,-which(names(dataset.name) %in%
   vars.to.remove]
   4.   output
   5. }

dataset <- remove.variable(dataset,c("var1","var2","var3"))

Pedro Brasil

Em 28 de fevereiro de 2016 08:55, Elias Carvalho <ecacarva em gmail.com>
escreveu:

> Ola Pessoal
>
> 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:
>
>
>    1. remove.variables <- function(dataset.name, vars.to.remove)
>    2. {
>    3.   # scan the variables to be removed
>    4.   for (x in 1 : length(vars.to.remove))
>    5.   {
>    6.     # transform command.Remove in "data$variable <- NULL"
>    7.     command.Remove <- paste(dataset.name,"$",vars.to.remove[x], "
>    <- NULL",sep="")
>    8.     # execute the command
>    9.     command.Remove <- eval(parse(text=command.Remove))
>    10.   } #  for (x in 1 : length(vars.to.remove))
>    11. } # remove.variables <- function(dataset.name, vars.to.remove)
>
>
> Fazendo um teste local, ou seja, executando o procedimento abaixo com as
> variáveisdataset.name, 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.
>
> dataset.name <- "data"
> vars.to.remove<-c("var1", "var5")
>
> 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:
>
> vars.to.remove = c("var1", "var5")
> dataset.name = "data"
>
> remove.variables(dataset.name, vars.to.remove)
>
> Eu acredito que tem a ver com o ambiente, acesso global algo assim mas não
> estou achando a solução.
>
> Agradeço se aguem puder me ajudar.
>
> --
> Best regards... 8^)
>
> “The mind that is open to new ideas never come back
> to its original size”  *Albert Einstein*
>
>
> _____________________________________________
> Prof. Elias César Araújo de Carvalho
> CV: http://lattes.cnpq.br/4248328961021251
>
> _______________________________________________
> R-br mailing list
> R-br em listas.c3sl.ufpr.br
> 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.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20160229/0691940b/attachment.html>