Commit 5ea1481b authored by Facundo Muñoz's avatar Facundo Muñoz ®️
Browse files

Commented check: comparing sources of population data (WorldPop and ECDC)

parent 1f0238a1
......@@ -163,6 +163,21 @@ plan <- drake_plan(## raw_data = read_excel(
by = "name"
),
# ## Check: compare two sources of population data
# ## 1. From the world population file, and from ECDC covid data
# inner_join(
# world_population %>%
# rename(pop_wp = pop),
# covid %>%
# select(name, pop_cv = pop) %>%
# unique(),
# by = "name"
# ) %>%
# ggplot(aes(pop_wp, pop_cv)) +
# geom_point() +
# geom_abline(intercept = 0, slope = 1)
# REPORTS -----------------------------------------------------------------
report_euro_html =
rmarkdown::render(
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment