halhen

library(tidyverse)

# data from https://www.kaggle.com/bls/american-time-use-survey

df.resp <- read_csv('../data/atus/atusresp.csv')
df.act <- read_csv('../data/atus/atusact.csv', col_types=cols(tustarttim = col_character(), tustoptime = col_character())) 
df.sum <- read_csv('../data/atus/atussum.csv')

df.tmp <- df.act %>%
  mutate(activity = case_when(trtier2p == 1301 ~ 'Exercise',