Remove edges with smaller weights in the reverse direction.

weight_sift(table)

Arguments

table

A data frame with three columns: "regulator", "target", and "weight".

Examples

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