Computes summary metrics from evidence rows generated by
trace_model_to_evidence(). Returns key traceability indicators.
Examples
library(r4subcore)
ctx <- r4sub_run_context(study_id = "TEST001", environment = "DEV")
#> ℹ Run context created: "R4S-20260316113013-wl4dieex"
adam_meta <- data.frame(
dataset = "ADSL", variable = c("STUDYID", "AGE", "AGEGR1"),
label = c("Study ID", "Age", "Age Group")
)
sdtm_meta <- data.frame(
dataset = "DM", variable = c("STUDYID", "AGE"),
label = c("Study ID", "Age")
)
map <- data.frame(
adam_dataset = "ADSL", adam_var = c("STUDYID", "AGE"),
sdtm_domain = "DM", sdtm_var = c("STUDYID", "AGE")
)
tm <- build_trace_model(adam_meta, sdtm_meta, mapping = map)
ev <- trace_model_to_evidence(tm, ctx = ctx)
#> ✔ Evidence table created: 4 rows
trace_indicator_scores(ev)
#> # A tibble: 5 × 3
#> indicator value description
#> <chr> <dbl> <chr>
#> 1 TRACE_VAR_COVERAGE_L2PLUS 0.667 Proportion of ADaM variables with trace l…
#> 2 TRACE_VAR_COVERAGE_L3PLUS 0.667 Proportion of ADaM variables with trace l…
#> 3 TRACE_ORPHAN_VAR_COUNT 1 Number of orphan ADaM variables with no S…
#> 4 TRACE_AMBIGUOUS_MAPPING_COUNT 0 Number of ADaM variables mapped to multip…
#> 5 TRACE_MEAN_TRACE_LEVEL 2.33 Mean trace level across all ADaM variables