Remove edges with smaller weights in the reverse direction.
weight_sift(table)
data("example_matrix")
network_table <- inferCSN(example_matrix)
#> ✔ Running for <dense matrix>.
#> ✔ Checking input parameters.
#> ✔ Using L0 sparse regression model.
#> ✔ Using 1 core.
#> ✔ Run done.
weight_sift(network_table) |> head()
#> regulator target weight
#> 1 g17 g18 0.5443805
#> 2 g18 g1 -0.5390453
#> 3 g16 g15 0.4818454
#> 4 g17 g16 0.4599054
#> 5 g15 g14 0.4516497
#> 6 g14 g13 0.4483912