## NG_data
ng.iris <- ng_data(name = "iris", data = iris[,1:4],
shortnames = c('s.L', 's.W', 'p.L', 'p.W'),
group = iris$Species)
## NG_graph
G <- completegraph(shortnames(ng.iris))
LG <- linegraph(G, sep = "::")
ng.lg <- ng_graph("3d transition", LG, "::", "kamadaKawaiSpring" )
## Visualization instruction
viz1 <- ng_2d_ggobi(ng.iris, ng.lg)
viz1
## Start a navGraph session
nav <- navGraph(ng.iris, ng.lg, viz1)Run the code above in your browser using DataLab