# NOT RUN {
# really long-running example.
load(system.file("extdata", "study_data.RData", package = "dataquieR"))
load(system.file("extdata", "meta_data.RData", package = "dataquieR"))
report <- dq_report(study_data, meta_data, label_col = LABEL) # most easy use
report <- dq_report(study_data, meta_data,
label_col = LABEL, dimensions =
c("Completeness", "Consistency", "Accuracy"),
check_table = read.csv(system.file("extdata",
"contradiction_checks.csv",
package = "dataquieR"
), header = TRUE, sep = "#"),
show_causes = TRUE,
cause_label_df = read.csv(
system.file("extdata", "Missing-Codes-2020.csv", package = "dataquieR"),
header = TRUE, sep = ";"
)
)
save(report, file = "report.RData") # careful, this contains the study_data
report <- dq_report(study_data, meta_data,
label_col = LABEL,
check_table = read.csv(system.file("extdata",
"contradiction_checks.csv",
package = "dataquieR"
), header = TRUE, sep = "#"),
specific_args = list(acc_univariate_outlier = list(resp_vars = "K")),
resp_vars = "SBP_0"
)
report <- dq_report(study_data, meta_data,
label_col = LABEL,
check_table = read.csv(system.file("extdata",
"contradiction_checks.csv",
package = "dataquieR"
), header = TRUE, sep = "#"),
specific_args = list(acc_univariate_outlier = list(resp_vars = "DBP_0")),
resp_vars = "SBP_0"
)
report <- dq_report(study_data, meta_data,
label_col = LABEL,
check_table = read.csv(system.file("extdata",
"contradiction_checks.csv",
package = "dataquieR"
), header = TRUE, sep = "#"),
specific_args = list(acc_univariate_outlier = list(resp_vars = "DBP_0")),
resp_vars = "SBP_0", cores = NULL
)
# }
Run the code above in your browser using DataLab