# NOT RUN {
ex_freqs <- c(45, 31, 33, 27, 43, 40, 51, 50, 63, 97, 121, 132, 64, 54, 32, 12)
ex_bounds <- c(0, 10000, 15000, 20000, 25000, 30000, 35000, 40000, 45000, 50000,
60000, 75000, 100000, 125000, 150000, 200000)
ex_mean <- 66500
mcib(ex_freqs, ex_bounds, ex_mean)
# }
Run the code above in your browser using DataLab