## Random incidence matrix: 25 scenarios, 4 events.
I <- matrix(rbinom(100, 1, .5), nrow = 25, ncol = 4,
dimnames = list(NULL, c("A", "B", "C", "D")))
C <- coin(I, sort = TRUE)
propCoin(C, 1)
Run the code above in your browser using DataLab