# NOT RUN {
path2snw_list <- system.file("extdata/resultActiveSubnetworkSearch.txt",
package = "pathfindR")
filtered <- filterActiveSnws(active_snw_path = path2snw_list,
sig_genes_vec = pathfindR::RA_input$Gene.symbol)
unlink("active_snw_search", recursive = TRUE)
# }
Run the code above in your browser using DataLab