Re: [R] list operation

From: William Dunlap <wdunlap_at_tibco.com>
Date: Wed, 23 Jun 2010 14:13:04 -0700

  > lst <- list(m=c('a','b','c'),n=c('c','a'),l=c('a','bc'))
  > f <- function(list, set) vapply(lst, function(el)all(is.element(set, el)), FUN.VALUE=logical(1))
  > # if you have an old version of R use as.logical(sapply(...))
  > # instead of vapply(..., FUN.VALUE=logical(10)
  > i <- f(lst, c("a","c"))
  > i
      m     n     l 

   TRUE TRUE FALSE
  > names(lst)[i]
  [1] "m" "n"
  > lst[i]
  $m
  [1] "a" "b" "c"   

  $n
  [1] "c" "a"

Bill Dunlap
Spotfire, TIBCO Software
wdunlap tibco.com

> -----Original Message-----
> From: r-help-bounces_at_r-project.org
> [mailto:r-help-bounces_at_r-project.org] On Behalf Of Yuan Jian
> Sent: Wednesday, June 23, 2010 6:35 AM
> To: r-help_at_r-project.org
> Subject: [R] list operation
>
> Hi,
>  
> it seems a simple problem, but I can not find a clear way.
> I have a list:
> lst=list(m=c('a','b','c'),n=c('c','a'),l=c('a','bc'))
> > lst
> $m
> [1] "a" "b" "c"
> $n
> [1] "c" "a"
> $l
> [1] "a"  "bc"
>
> how can I get list elements that include a given subset? for
> example, for given subset {'a','c'}, the answer should be 'm' and 'n'.
>  
> thanks
> Yu
>
>
>
> [[alternative HTML version deleted]]
>
>



R-help_at_r-project.org 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. Received on Wed 23 Jun 2010 - 21:32:44 GMT

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.2.0, at Wed 23 Jun 2010 - 21:50:36 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help. Please read the posting guide before posting to the list.

list of date sections of archive