# NOT RUN {
examples_dir <- system.file("examples", package = "retroharmonize")
survey_list <- dir(examples_dir)[grepl("\\.rds", dir(examples_dir))]
example_surveys <- read_surveys(
file.path( examples_dir, survey_list),
save_to_rds = FALSE)
metadata <- metadata_waves_create(example_surveys)
metadata$var_name_suggested <- label_normalize(metadata$var_name)
metadata$var_name_suggested[metadata$label_orig == "age education"] <- "age_education"
hnw <- harmonize_var_names(waves = example_surveys,
metadata = metadata )
subset_waves (hnw, subset_names = c("uniqid", "w1", "age_education"))
# }
Run the code above in your browser using DataLab