# prepare path to example export
export_location <- system.file("extdata", "sT_exports", "BMD",
"s_export_CSV-xls_BMD_short_en_utf8.zip",
package = "secuTrialR")
# read all export data
sT_export <- read_secuTrial_raw(data_dir = export_location)
# read validation overview
val_ovv_location <- system.file("extdata", "sT_exports", "BMD",
"bmd_validation_overview.xlsx",
package = "secuTrialR")
val_ovv <- read_validation_overview(data_dir = val_ovv_location)
secuTrialR:::assess_form_variable_completeness(form = sT_export$bmd,
casenodes_table = sT_export$cn,
validation_overview = val_ovv,
completeness = "allforms",
occ_in_vp = 5)
Run the code above in your browser using DataLab