# NOT RUN {
min_count(n = 15e3, pop = 2e6, RMoE = 0.1)
# }
# NOT RUN {
library("data.table")
min_count(n = c(10e3, 15e3, 20e3), pop = 2e6, 0.1)
n <- seq(10e3, 30e3, length.out = 11)
# n <- sort(c(n, 22691))
n
RMoE <- seq(.02, .2, length.out = 10)
RMoE
dt <- data.table(n = rep(n, each = length(RMoE)), RMoE = RMoE)
dt[, Y := min_count(n = n, pop = 2.1e6, RMoE = RMoE, R = 1) / 1e3]
dt
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab