if (FALSE) # slow
load(system.file("extdata", "meta_data.RData", package = "dataquieR"))
load(system.file("extdata", "study_data.RData", package = "dataquieR"))
meta_data_cross_item <- prep_get_data_frame("meta_data_v2|cross-item_level")
label_col <- "LABEL"
threshold_value <- 1
con_contradictions_redcap(
study_data = study_data, meta_data = meta_data, label_col = label_col,
threshold_value = threshold_value, meta_data_cross_item = meta_data_cross_item
)
con_contradictions_redcap(
study_data = study_data, meta_data = meta_data, label_col = label_col,
threshold_value = threshold_value, meta_data_cross_item = meta_data_cross_item,
summarize_categories = TRUE
)
Run the code above in your browser using DataLab