data(example_data)
require(tibble)
tibble::tribble(~"var", ~"datatype",
"patient_id", "id",
"tumoursize", "numeric",
"t_stage", "ordinal_tstage",
"n_stage", "ordinal_nstage",
"diabetes", "factor",
"diabetes_type", "ordinal",
"hypertension", "factor",
"rural_urban", "factor",
"marital_status", "factor",
"SNP_a", "genotype",
"SNP_b", "genotype",
"free_text", "freetext") -> data_types
# create QC'ed dataset
post_QC_example_data <- apply_quality_ctrl(example_data,
patient_id,
data_types,
bin_cats =c("No" = "Yes",
"rural" = "urban"),
min_freq = 0.6)
# review QC
QC_review <- review_quality_ctrl(before_tbl = example_data,
after_tbl = post_QC_example_data,
id_var = patient_id)
# view variable level changes
QC_review$variable_level_changes
# view value level changes
QC_review$value_level_changes
# view value level changes as a plot
QC_review$value_level_changes_plt
Run the code above in your browser using DataLab