Calculate Accuracy

Calculates accuracy metric

Usage

calculate_accuracy(network_table, ground_truth)

Arguments

network_table

A data frame of predicted network structure

ground_truth

A data frame of ground truth network

Value

A list containing the metric

Examples

data(example_matrix)
data("example_ground_truth")
network_table <- inferCSN(example_matrix)
#> ℹ [2025-12-17 14:37:02] Inferring network for <dense matrix>...
#> ◌ [2025-12-17 14:37:02] Checking parameters...
#> ℹ [2025-12-17 14:37:02] Using "L0" sparse regression model
#> ℹ [2025-12-17 14:37:02] Using 1 core
#> ⠙ [2025-12-17 14:37:02] Running [1/18] Processing: g1  ETA:  1s
#> ✔ [2025-12-17 14:37:02] Completed 18 tasks in 228ms
#> 
#> ℹ [2025-12-17 14:37:02] Building results
#> ✔ [2025-12-17 14:37:02] Building network done
calculate_accuracy(
  network_table,
  example_ground_truth
)
#> $metrics
#>   Metric Value
#> 1    ACC 0.948
#>