library(dplyr)
set.seed(123)
df <- data.frame(obs = sample(200, 19 * 2 * 5 * 4, replace = TRUE),
pop = sample(10000:20000, 19 * 2 * 5 * 4, replace = TRUE))
df %>%
calculate_funnel_limits(obs, pop, statistic = "proportion", multiplier = 100)
Run the code above in your browser using DataLab