# NOT RUN {
binomtest <- plastic.ci(rbinom(1000,1,0.5), 30, 100)
prevalence_plot(binomtest$prevprob,
binomtest$cidtf$N,
binomtest$cidtf$lower_ci,
binomtest$cidtf$upper_ci)
# }
Run the code above in your browser using DataLab