tests/06-testCycle.R

library(WayFindR)
xmlfile <- system.file("pathways/WP3850.gpml", package = "WayFindR")
gr <- GPMLtoIgraph(xmlfile)
cyc <- findCycles(gr)
cyc
lapply(cyc, interpretCycle, graph = gr)

S <- WayFindR:::cycleSubgraph(gr, cyc)
#set.seed(13579)
#L <- igraph::layout_with_graphopt(G)
#plot(G, layout=L)

Try the WayFindR package in your browser

Any scripts or data that you put into this service are public.

WayFindR documentation built on July 17, 2024, 3 p.m.