Pontifications

(Part 1)

  • Maybe I should believe this comment :-) 1_gen_data.R generates the activity.tsv file that is used in here
  • Looking at 1_gen_data.R:
library(tidyverse)
library(lubridate)

# Load data; see https://www.kaggle.com/bls/american-time-use-survey

df.act <- read_csv('~henrik/private/vizyns/data/atus/atusact.csv')
df.sum <- read_csv('~henrik/private/vizyns/data/atus/atussum.csv')


# Get a data frame with activity (trcodep), observation weight (tufnwgtp)
# and interval for doing (start - end)