set.seed(12345)
xlist <- list(A = 1:20, B = 10:30, C = sample(25:50, 15))
xdf <- as.data.frame(matrix(
sample(0:1, 90, replace = TRUE),
ncol = 3
))
colnames(xdf) <- LETTERS[1:3]
extractInfo(xlist) # counts by default
extractInfo(xlist, what = "intersections")
extractInfo(xlist, what = "both")
extractInfo(xdf)
Run the code above in your browser using DataLab