prem-to-data.R

# Script for extracting various data from https://doi.org/10.1371/journal.pcbi.1005697.s002

#-------------------------------------------------------------------------------
# Contact matricies for Australia
#-------------------------------------------------------------------------------
library(openxlsx)
AusOtherLocationsContactMatrix <- as.matrix(read.xlsx(
    'contact_matrices_152_countries/MUestimates_other_locations_1.xlsx',
    sheet='Australia'))
save(AusOtherLocationsContactMatrix,
    file='../abcovid/data/AusOtherLocationsContactMatrix.RData',
    version=2)

AusAllLocationsContactMatrix <- as.matrix(read.xlsx(
    'contact_matrices_152_countries/MUestimates_all_locations_1.xlsx',
    sheet='Australia'))
save(AusAllLocationsContactMatrix,
    file='../abcovid/data/AusAllLocationsContactMatrix.RData',
    version=2)

AusSchoolContactMatrix <- as.matrix(read.xlsx(
    'contact_matrices_152_countries/MUestimates_school_1.xlsx',
    sheet='Australia'))
save(AusSchoolContactMatrix,
    file='../abcovid/data/AusSchoolContactMatrix.RData',
    version=2)

AusHomeContactMatrix <- as.matrix(read.xlsx(
    'contact_matrices_152_countries/MUestimates_home_1.xlsx',
    sheet='Australia'))
save(AusHomeContactMatrix,
    file='../abcovid/data/AusHomeContactMatrix.RData',
    version=2)

AusWorkContactMatrix <- as.matrix(read.xlsx(
    'contact_matrices_152_countries/MUestimates_work_1.xlsx',
    sheet='Australia'))
save(AusWorkContactMatrix,
    file='../abcovid/data/AusWorkContactMatrix.RData',
    version=2)