In ETHPOP-and-ETS/cleanETHPOP: Clean ETHPOP Data For Use in a TB DES Model

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  eval = FALSE
)

library(cleanETHPOP)
library(dplyr)
library(tidyr)
library(readr)
library(reshape2)

Clean birth data

where_data_Leeds1 <- system.file("extdata", "Leeds1", "Births", package = "cleanETHPOP")
where_data_Leeds2 <- system.file("extdata", "Leeds2", "Births", package = "cleanETHPOP")

clean_births(dir_path = where_data_Leeds1, save_name = "clean_births_Leeds1")
clean_births(dir_path = where_data_Leeds2, save_name = "clean_births_Leeds2")

Clean death data

where_data_Leeds1 <- system.file("extdata", "Leeds1", "Deaths", package = "cleanETHPOP")
where_data_Leeds2 <- system.file("extdata", "Leeds2", "Deaths", package = "cleanETHPOP")

clean_deaths(dir_path = where_data_Leeds1, save_name = "clean_deaths_Leeds1")
clean_deaths(dir_path = where_data_Leeds2, save_name = "clean_deaths_Leeds2")

Clean population data

where_data_Leeds1 <- system.file("extdata", "Leeds1", "Population", package = "cleanETHPOP")
where_data_Leeds2 <- system.file("extdata", "Leeds2", "Population", package = "cleanETHPOP")

clean_pop(dir_path = where_data_Leeds1, save_name = "clean_pop_Leeds1")
clean_pop(dir_path = where_data_Leeds2, save_name = "clean_pop_Leeds2")

Clean in-migration data

There are 2 different scenario available:

• 'Leeds1': BREXIT scenario
• 'Leeds2': ONS aligned scenario

where_data_Leeds1 <- system.file("extdata", "Leeds1", "InMigrants", package = "cleanETHPOP")
where_data_Leeds2 <- system.file("extdata", "Leeds2", "InMigrants", package = "cleanETHPOP")

clean_inmigrants(dir_path = where_data_Leeds1, save_name = "clean_inmigrants_Leeds1")
clean_inmigrants(dir_path = where_data_Leeds2, save_name = "clean_inmigrants_Leeds2")

Clean out-migration data

where_data_Leeds1 <- system.file("extdata", "Leeds1", "OutMigrants", package = "cleanETHPOP")
where_data_Leeds2 <- system.file("extdata", "Leeds2", "OutMigrants", package = "cleanETHPOP")

clean_outmigrants(dir_path = where_data_Leeds1, save_name = "clean_outmigrants_Leeds1")
clean_outmigrants(dir_path = where_data_Leeds2, save_name = "clean_outmigrants_Leeds2")

Create out-migration per capital data

outmigrants_per_capita()

# run this to create html doc for GitHub
rmarkdown::render("vignettes/how-to-use-package.Rmd", output_dir = "docs/", output_format = "html_document")

ETHPOP-and-ETS/cleanETHPOP documentation built on June 2, 2020, 9:25 p.m.