# NOT RUN {
# Using active_transport1_fun() to determine daily time spent
# traveling in active ways values across CCHS 2001-2005.
# active_transport1_fun() is specified in variable_details.csv along with the CCHS
# variables and cycles included.
# To transform active_transport across cycles, use rec_with_table() for each
# CCHS cycle and specify active_transport, along with each activity variable.
# Then by using merge_rec_data(), you can combine active_transport across
# cycles
library(cchsflow)
active_transport2001 <- rec_with_table(
cchs2001_p, c(
"PAC_4A_cont", "PAC_4B_cont", "active_transport"
)
)
head(active_transport2001)
active_transport2005 <- rec_with_table(
cchs2005_p, c(
"PAC_4A_cont", "PAC_4B_cont", "active_transport"
)
)
tail(active_transport2005)
combined_active_transport <- suppressWarnings(merge_rec_data(active_transport2001,
active_transport2005))
head(combined_active_transport)
tail(combined_active_transport)
# }
Run the code above in your browser using DataLab