# NOT RUN {
## Get the most recent year of data
tb_burden <- get_tb_burden()
most_recent_year <- max(tb_burden$year)
## Get summary of the e_mdr_pct_rr_new cases
summarise_tb_burden(
  metric = "e_mdr_pct_rr_new",
  years = most_recent_year,
  stat = "mean",
  samples = 100,
  compare_all_regions = TRUE,
  compare_to_world = TRUE,
  verbose = TRUE
)
# }
# NOT RUN {
## Get median (with 95% IQR) of the case fatality rate for regions and the world
## Boostrapping uncertainty in country measures
summarise_tb_burden(
  metric = "cfr",
  years = most_recent_year,
  samples = 100,
  stat = "median",
  compare_all_regions = TRUE,
  compare_to_world = TRUE,
  verbose = FALSE
)
## Get summary data for the UK, Europe and the world
## Bootstrapping CI's
summarise_tb_burden(
  metric = "e_inc_num",
  samples = 100,
  stat = "median",
  countries = "United Kingdom",
  compare_to_world = TRUE,
  compare_to_region = TRUE,
  verbose = FALSE
)
## Get an overview of incidence rates regionally and globally compared to the UK
summarise_tb_burden(
  metric = "e_inc_num",
  stat = "rate",
  countries = "United Kingdom",
  compare_to_world = TRUE,
  compare_to_region = TRUE,
  verbose = FALSE
)
# }
Run the code above in your browser using DataLab