if (FALSE) {
study_data <- readRDS(system.file("extdata", "ship.RDS", package = "dataquieR"))
meta_data <- readRDS(system.file("extdata", "ship_meta.RDS", package = "dataquieR"))
int_unexp_records_segment(
study_segment = c("PART_STUDY", "PART_INTERVIEW"),
data_record_count = c(3000, 1100),
study_data = study_data,
meta_data = meta_data
)
}
Run the code above in your browser using DataLab