data("example_matrix")
data("example_ground_truth")
network_table <- inferCSN(example_matrix)
#> ✔ Running for <dense matrix>.
#> ✔ Checking input parameters.
#> ✔ Using L0 sparse regression model.
#> ✔ Using 1 core.
#> ✔ Run done.
calculate_acc(network_table, example_ground_truth)
#> [1] "0.944"