# NOT RUN {
library(cchsflow)
library(sjlabelled)
bmi2001 <- rec_with_table(
cchs2001_p, c(
"HWTGHTM",
"HWTGWTK", "HWTGBMI_der"
)
)
bmi2003 <- rec_with_table(
cchs2003_p, c(
"HWTGHTM",
"HWTGWTK", "HWTGBMI_der"
)
)
combined_bmi <- bind_rows(bmi2001, bmi2003)
get_label(combined_bmi)
labeled_combined_data <- set_data_labels(combined_bmi,
variable_details,
variables)
get_label(labeled_combined_data)
# }
Run the code above in your browser using DataLab