Extracts feature sets from a renamed network (see rename_net).
Examples
inputs_dir <- system.file("testdata", "inputs", package = "decoupleR")
mat <- readRDS(file.path(inputs_dir, "mat.rds"))
net <- readRDS(file.path(inputs_dir, "net.rds"))
net <- rename_net(net, source, target, mor)
extract_sets(net)
#> $T1
#> [1] "G01" "G02" "G03"
#>
#> $T2
#> [1] "G06" "G07" "G08"
#>
#> $T3
#> [1] "G06" "G07" "G08" "G11"
#>