In timdisher/neoDecision: Create slides for neonatal decision modeling talk

knitr::opts_chunk$set(echo=TRUE, 
                      warning=FALSE, 
                      message=FALSE, 
                      dev = "svg")

library(xfun) # caching

# Clean and Validate
library(dplyr) # Lots of data munging tools
library(ggplot2) # Lots of data munging tools
library(purrr)

# Data vis
library(patchwork) # Easy to arrange multiple plots
library(summarytools) # Some nice summaries
library(ggeffects)
library(xaringanthemer)
cols <- c("#002F6C", "#ED8B00", "#DC4405", "#007398", "#7FA9AE", "#B1B3B3", 
"#565a5c")

# General
library(glue) # easy pasting

# Analysis packages
library(gt)
library(synthpop)
library(mvProbit)
library(smaa)
library(hitandrun)



devtools::load_all() # Assumes you're using package structure



# Say where you want your cache to be
cache <- here::here("inst","cache/")

data("ex_dat")

Project Information

Generation of materials for Harvard neo talk. This analysis was developed using a package structure, with the analysis organized as a series of functions. If you are just joining this project please start here to understand the over-arching goal of the analysis. The functions are built to work as a stand-alone workflow, and can be run in the correct order by calling the bookdown::serve_book() function with the index.Rmd file open. This project makes use of caching for long-running analyses but the cache is not tracked on git. The first run can be expected to take a reasonably long amount of time after which subsequent renders are usually < 1 minute.

timdisher/neoDecision documentation built on Dec. 23, 2021, 10:56 a.m.