Calculate Precision Metric

Calculates precision metric

Usage

calculate_precision(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)
#> ℹ [2026-01-23 02:15:54] Inferring network for <matrix/array>...
#> ◌ [2026-01-23 02:15:54] Checking parameters...
#> ℹ [2026-01-23 02:15:54] Using L0 sparse regression model
#> ℹ [2026-01-23 02:15:54] Using 1 core
#> ℹ [2026-01-23 02:15:54] Building results
#> ✔ [2026-01-23 02:15:54] Inferring network done
#> ℹ [2026-01-23 02:15:54] Network information:
#> ℹ                         Edges Regulators Targets
#> ℹ                       1   306         18      18
calculate_precision(
  network_table,
  example_ground_truth
)
#> $metrics
#>      Metric Value
#> 1 Precision 0.529
#>