如何从22个元素中提出任意元素组成新的list

qing006076

我有一个list，ls1<-list(c(1,2),c(1,3),c(1,4),c(1,5),
          c(2,3),c(2,4),c(2,5),c(3,4),c(3,5),c(4,5),
          c(1,2,3),c(1,3,4),c(1,3,4),c(2,3,4),c(2,3,5),c(3,4,5),
          c(1,2,3,4),c(1,2,3,5),c(1,2,4,5),c(1,3,4,5),c(2,3,4,5),
          c(1,2,3,4,5))

我想从里面提出任意个元素，组成新的list。比如，任意提出2个元素组成新的list，这样就可以提出22*21/2=231个。又比如，任意提出3个元素等等。

求代码

yiqunhs

num=2
sample <- combn(1:22, num)[,sample(choose(22,num), 1)]
ls1[sample]