Calculates F1 score
Examples
data(example_matrix)
data("example_ground_truth")
network_table <- inferCSN(example_matrix)
#> ℹ [2025-10-16 02:36:37] Running for <dense matrix>.
#> ◌ [2025-10-16 02:36:37] Checking input parameters...
#> ℹ [2025-10-16 02:36:37] Using `L0` sparse regression model
#> ℹ [2025-10-16 02:36:37] Using 1 core
#> ⠙ [2025-10-16 02:36:37] Running [1/18] ETA: 0s
#> ✔ [2025-10-16 02:36:37] Completed 18 tasks in 200ms
#>
#> ℹ [2025-10-16 02:36:37] Building results
#> ✔ [2025-10-16 02:36:37] Run done.
calculate_f1(
network_table,
example_ground_truth
)
#> $metrics
#> Metric Value
#> 1 F1 0.692
#>