Demo_Manuscript/zz_load_d.R

In PAHPLabResearch/FLASH: FLASH: Free Living Activity Study for Health

## Load data (call it `d` for data, which keeps things short and avoids
## masking R's `data()` function)

  d <- readRDS(
    "Demo_Manuscript/_merged_data/day_level_summaries.rds"
  )

## Get demographics

  d <-
    "data-raw/Demographic/rds/demographics.rds" %>%
    readRDS(.) %>%
    .[ ,demo_vars] %>%
    .[.$id %in% d$id, ] %>%
    structure(., row.names = seq(nrow(.))) %>%
    merge(d)