## Generate sample data
counts = data.frame(x1 = 1:5, n1 = 30, x2 = 0:4, n2 = 30)
## Agresti-Caffo
ci_ac = with(counts, acCi(x1, n1, x2, n2))
ci_ac2 = with(counts, acCi(x1, n1, x2, n2, 0.99))
## cover 0
idx_zero = ciCovers(ci_ac)
## cover 1
idx_one = ciCovers(ci_ac, delta = 1)
## overlap
idx_same = ciOverlap(ci_ac, ci_ac2)
## width
width = ciWidth(ci_ac)Run the code above in your browser using DataLab