Calculates accuracy metric
Examples
data("example_matrix")
data("example_ground_truth")
network_table <- inferCSN(example_matrix)
#> ℹ [2025-07-28 09:21:46] Running for <dense matrix>.
#> ℹ [2025-07-28 09:21:46] Checking input parameters.
#> ℹ [2025-07-28 09:21:46] Using L0 sparse regression model.
#> ℹ [2025-07-28 09:21:46] Using 1 core
#> ⠙ [2025-07-28 09:21:46] Running [1/18] ETA: 1s
#> ✔ [2025-07-28 09:21:46] Completed 18 tasks in 226ms
#>
#> ℹ [2025-07-28 09:21:46] Building results
#> ✔ [2025-07-28 09:21:46] Run done.
calculate_accuracy(
network_table,
example_ground_truth
)
#> $metrics
#> Metric Value
#> 1 ACC 0.948
#>