# NOT RUN {
d <- health_data
# Asian population compared to Scottish (reference)
smr(d, bad, pop, age, ethnicity, sets = c("Scot", "asian"))
# Asian, White British and Irish population compared to Scottish (reference)
smr(d, bad, pop, age, ethnicity, sets = c("Scot", "asian", "WB", "Irish"),
age_group = c("15-29", "30-44"), CI = 99)
# }
Run the code above in your browser using DataLab