if (FALSE) # 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 = prep_get_data_frame("meta_data_v2|missing_table")
)
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
)
rp1 <- dq_report("ship", "ship_meta",
meta_data_segment = "meta_data_segment",
meta_data_dataframe = "meta_data_dataframe",
label_col = LABEL)
Run the code above in your browser using DataLab