## 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))
library(GenomicRanges)
gr = GRanges("1", IRanges(start = 1:nrow(counts), width = 1))
mcols(gr) = ci_ac
## GRanges
plotConfidenceIntervals(gr)
## data.frame
plotConfidenceIntervals(ci_ac)
## abundance shift
plotAbundanceShift(gr)
plotAbundanceShift(ci_ac)Run the code above in your browser using DataLab