Calculate AUPRC Metric — calculate

Calculates AUPRC metric with optional visualization

Usage

calculate_auprc(
  network_table,
  ground_truth,
  return_plot = FALSE,
  line_color = "#1563cc",
  line_width = 1
)

Arguments

network_table: A data frame of predicted network structure
ground_truth: A data frame of ground truth network
return_plot: Logical value indicating whether to generate plot
line_color: Color for plot lines
line_width: Width for plot lines

Value

A list containing metric and optional plot

Examples

data(example_matrix)
data("example_ground_truth")
network_table <- inferCSN(example_matrix)
#> ℹ [2026-01-09 07:09:26] Inferring network for <dense matrix>...
#> ◌ [2026-01-09 07:09:26] Checking parameters...
#> ℹ [2026-01-09 07:09:26] Using L0 sparse regression model
#> ℹ [2026-01-09 07:09:26] Using 1 core
#> ℹ [2026-01-09 07:09:26] Building results
#> ✔ [2026-01-09 07:09:26] Inferring network done
#> ℹ [2026-01-09 07:09:26] Network information:
#> ℹ                         Edges Regulators Targets
#> ℹ                       1   306         18      18
calculate_auprc(
  network_table,
  example_ground_truth,
  return_plot = TRUE
)
#> $metrics
#>   Metric Value
#> 1  AUPRC 0.437
#> 
#> $plot

#>