## Define a NG_data object
ng.iris <- ng_data(name = "iris", data = iris[,1:4],
shortnames = c('s.L', 's.W', 'p.L', 'p.W'))
## start a navGraph session
nav <- navGraph(ng.iris)
## Find linegraph
LG <- linegraph(completegraph(shortnames(ng.iris)))
## find a path
library(PairViz)
path = eulerian(LG)
## walk the path
ng_walk(nav,path)
Run the code above in your browser using DataLab