con1 <- file(system.file("XML/bfsex.gxl",package="RBGL"), open="r")
dd <- fromGXL(con1)
close(con1)
bfs(dd, "r")
bfs(dd, "s")
con2 <- file(system.file("XML/dfsex.gxl",package="RBGL"), open="r")
dd2 <- fromGXL(con2)
close(con2)
dfs(dd2, "u")
Run the code above in your browser using DataLab