if (FALSE) {
out_segment <- int_all_datastructure_segment(
meta_data_segment = "meta_data_segment",
study_data = "ship",
meta_data = "ship_meta"
)
study_data <- cars
meta_data <- dataquieR::prep_create_meta(VAR_NAMES = c("speedx", "distx"),
DATA_TYPE = c("integer", "integer"), MISSING_LIST = "|", JUMP_LIST = "|",
STUDY_SEGMENT = c("Intro", "Ex"))
out_segment <- int_all_datastructure_segment(
meta_data_segment = "meta_data_segment",
study_data = study_data,
meta_data = meta_data
)
}
Run the code above in your browser using DataLab