data-raw/DATASET.R

In lorecatta/seircovid2S:

# Process raw data

# Contact Matrices sourced from literature used in IC global report
# -----------------------------------------------------------------------------
contact_matrices <- readRDS("data-raw/contact_matrices.rds")
contact_matrices[[12]] <- as.matrix(contact_matrices[[12]])
usethis::use_data(contact_matrices, overwrite = TRUE)

# Contact matrix for Italy
# -----------------------------------------------------------------------------
contact_matrix <- readRDS("data-raw/contact_matrix_IT.rds")
usethis::use_data(contact_matrix, overwrite = TRUE)

# Population data
# -----------------------------------------------------------------------------
population <- read.csv("data-raw/WPP_2020_by_age.csv", stringsAsFactors = FALSE)
usethis::use_data(population, overwrite = TRUE)