data-raw/prep_analysis1_data.R

# Prepare data from analysis 1.
library(readr)
fil <- "data-raw/RecoveryActs_near-final.tab"
dat <- read_tsv(fil)

dat$combined_components <- dat$Threat_allev + dat$Improve_demo

change <- dat[, c(1, 12:17, 21:25, 28)]
change <- dplyr::distinct(change)
head(change)
names(change)

devtools::use_data(change, overwrite = TRUE)
Defenders-ESC/threatdemog documentation built on May 6, 2019, 1:58 p.m.