data-raw/chf_df.R

In fabian-s/tidyfun: Tools for Tidy Functional Data

###########################################################
# File imports and organizes activity data from a study of
# congestive heart failure. Data were originally presented
# in "Multilevel Matrix-Variate Analysis and its Application
# to Accelerometry-Measured Physical Activity in Clinical
# Populations" by Huang et al.; these data are public,
# with download information in the paper.
#
# We focus on a subset to avoid issues of memory.
###########################################################

library(tidyfun)
library(readr)
library(dplyr)

covar <- read_csv(here::here("data-raw", "covariate.csv"))
activity <- read_csv(here::here("data-raw", "activity.csv"))

chf_df <- inner_join(covar, filter(activity, week == 1), by = "id") |>
  tf_gather(activity.1:activity.1440, key = activity) |>
  select(-week) |>
  mutate(day = ordered(day,
    levels = c(
      "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday"
    ),
    labels = c("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")
  ))

usethis::use_data(chf_df, overwrite = TRUE)