knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE, cache = FALSE)
options("digits" = 2) options("scipen" = 9)
set.seed(42)
dir.create("figures/", showWarnings = FALSE) dir.create("figures/cache/", showWarnings = FALSE)
latest_wave <- "f_"
source("R/packages.R")
source("R/logit_functions.R") source("R/validation_funcs.R") source("R/population_funcs.R") source("R/geocode.R")
source("data-raw/0-prep-understanding-society.R") source("data-raw/1-construct-shapefiles.R") source("data-raw/2-simulate-pilot.R") source("data-raw/3-simulate-resilience.R")
load("data/hawaii.RData") load("data/kauai.RData") load("data/bem.RData") load("data/care_homes.RData") load("data/doctors.RData") load("data/leisure_centres.RData") load("data/gs.RData") load("data/don_comm.RData") load("data/don_oa.RData") load("data/don_oa_cent.RData") load("data/don_lsoa.RData") load("data/don_msoa.RData") load("data/don_outline.RData") load("data/don_context.RData") load("data/gb_outline.RData") load("data/lads.RData") load("data/sy_county.RData") load("data/yh_region.RData") load("data/us.RData") load("data/pilot_con.RData") load("data/pilot_ind.RData") load("data/pilot_oa_ext.RData") load("data/pilot_oa_int.RData") load("data/pilot_con_lsoa.RData") load("data/pilot_lsoa_ext.RData") load("data/pilot_con_msoa.RData") load("data/pilot_msoa_ext.RData") load("data/res_con.RData") load("data/res_ind.RData") load("data/res_weights_ext.RData") load("data/res_weights_int.RData")
source("data-raw/4-calcs-mult-datasets.R")
source("data-raw/5-figures.R")
# automatically create a bib database for R packages knitr::write_bib(c( .packages(), 'bookdown', 'knitr', 'rmarkdown', 'readr', 'testthat', 'tidyr'), 'packages.bib')
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.