VennDiagram.R
From Organic Design wiki
- This illustrates a problem with missing values
library(limma) p <- 100 n <- 3
x <- matrix(0, nr=p,nc=n) set.seed(1) x[,1] <- rbinom(p, 1, 1/10) x[,2] <- rbinom(p, 1, 1/10) x[,3] <- rbinom(p, 1, 1/10) x
vennCounts(x)[7,] vennDiagram(x)
x[4,3] <- NA
vennCounts(x)[7,] vennDiagram(x)