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)
#> ℹ [2025-10-16 02:36:35] Running for <dense matrix>.
#> ◌ [2025-10-16 02:36:35] Checking input parameters...
#> ℹ [2025-10-16 02:36:35] Using `L0` sparse regression model
#> ℹ [2025-10-16 02:36:35] Using 1 core
#> ℹ [2025-10-16 02:36:35] Building results
#> ✔ [2025-10-16 02:36:36] Run done.
calculate_auprc(
  network_table,
  example_ground_truth,
  return_plot = TRUE
)
#> $metrics
#>   Metric Value
#> 1  AUPRC 0.437
#> 
#> $plot

#>