Calculates Set Intersection (SI) metric

calculate_si(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-04-22 07:40:08] Running for <dense matrix>.
#>  [2025-04-22 07:40:08] Checking input parameters.
#>  [2025-04-22 07:40:08] Using L0 sparse regression model.
#>  [2025-04-22 07:40:08] Using 1 core
#>  [2025-04-22 07:40:08] Run done.
calculate_si(
  network_table,
  example_ground_truth
)
#> $metrics
#>   Metric Value
#> 1     SI    18
#>