# NOT RUN {
x <- list(c('a','b','c'),c('a','b'),c('b','c'))
list.common(x, .)
x <- list(p1 = list(type='A',score=list(c1=10,c2=8)),
p2 = list(type='B',score=list(c1=9,c2=9)),
p3 = list(type='B',score=list(c1=9,c2=7)))
list.common(x,type)
list.common(x,names(score))
foo <- list(x = LETTERS[1:3], y = LETTERS[3:5])
list.common(foo)
# }
Run the code above in your browser using DataLab