# NOT RUN {
# ungrouped data frame
df <- data.frame(area = rep(c("Area1","Area2","Area3","Area4"), each=3),
numerator = c(NA,82,9,48, 6500,8200,10000,10000,8,7,750,900),
denominator = rep(c(100,10000,10000,10000), each=3))
phe_proportion(df, numerator, denominator)
phe_proportion(df, numerator, denominator, confidence=99.8)
phe_proportion(df, numerator, denominator, type="standard")
# grouped data frame
library(dplyr)
dfg <- df %>% group_by(area)
phe_proportion(dfg, numerator, denominator, multiplier=100)
# }
Run the code above in your browser using DataCamp Workspace