VennDiagram.R
From Organic Design wiki
# This illustrates a problem with missing values
p <- 100
n <- 3
x <- matrix(0, nr=p,nc=n)
colnames(x) <- LETTERS[1:3]
set.seed(1)
for(i in 1:n) {
x[,i] <- rbinom(p, 1, 1/10)
}
vennCounts(x)[7,]
vennDiagram(x)
x[4,]
x[4,3] <- NA
vennCounts(x)[7,]
vennDiagram(x)
