powered by
hasEulerianCycle(graph)
graphNEL
TRUE
FALSE
require(graph) require(eulerian) g <- new("graphNEL", nodes=LETTERS[1:4], edgemode="directed") g <- addEdge(graph=g, from=LETTERS[1:4], to=LETTERS[c(2:4,1)]) hasEulerianCycle(g)
Run the code above in your browser using DataLab