You messed up the quote marks and the "library" function is not capitalized.
You defined your search list by the name "list", which is also the name of a
commonly used base function in R. Also, the vector you gave to GetAllSubsets
had several misleading invisible conversions to character because you
concatenated various types together. This will in turn lead to more invisible
conversions to character when testing of columns z and J occurs. Try using a
decent text editor to create your email, and keep studying the Introduction to
R document that comes with the software.
I don't know of a computationally efficient solution to this problem as you
have described it, and with the type conversions going on I am not sure it is
even possible to get a correct solution, but the code below is my attempt. I
renamed your "list" to "lst".
lapply(
dataframe
, function(x){
tst <- function(x){all(x %in% y)}
!is.na( Position( tst,lst ) )
}
)
---------------------------------------------------------------------------
Jeff Newmiller The ..... ..... Go Live...
DCN:<[email protected]> Basics: ##.#. ##.#. Live Go...
Live: OO#.. Dead: OO#.. Playing
Research Engineer (Solar/Batteries O.O#. #.O#. with
/Software/Embedded Controllers) .OO#. .OO#. rocks...1k
---------------------------------------------------------------------------
Sent from my phone. Please excuse my brevity.
On September 25, 2014 4:53:38 PM PDT, "Maicel Monzón Pérez"
<[email protected]> wrote:
>Hello list
>I would like to know how can i detect dataframe columns that have as
>unique values elements of a list.
>For example, at a given dataframe to look for columns that unique
>values
>are elements of a list like this one
>
>
>dataframe<-data.frame(
>x = c("yes, "1, "no, "no),
>y = c("black, "red, "NA, "white),
>z= c(T,F,T,T),
>J= c(2,7,8,9))
>Library(DescTools)
>
>list<-GetAllSubsets(c(NA,0,1,2,"yes","y","no"),min.n = 2, max.n = 5)
>
>......and to obtain the following vector..
>TRUE,FALSE, FALSE, FALSE
>
>Best regards
>Maicel Monzon
>
>
>--
>Nunca digas nunca, di mejor: gracias, permiso, disculpe.
>
>Este mensaje le ha llegado mediante el servicio de correo electronico
>que ofrece Infomed para respaldar el cumplimiento de las misiones del
>Sistema Nacional de Salud. La persona que envia este correo asume el
>compromiso de usar el servicio a tales fines y cumplir con las
>regulaciones establecidas
>
>Infomed: http://www.sld.cu/
>
>______________________________________________
>[email protected] mailing list
>https://stat.ethz.ch/mailman/listinfo/r-help
>PLEASE do read the posting guide
>http://www.R-project.org/posting-guide.html
>and provide commented, minimal, self-contained, reproducible code.
______________________________________________
[email protected] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
