## 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'),
group = iris$Species,
labels = substr(iris$Species,1,2))
## Start navGraph
nav1 <- navGraph(ng.iris)
## navGraph session, data linked to previous session
nav2 <- navGraph(ng.iris, settings =
list(color=list(background="steelblue",bullet="blue"),
interaction=list(NSteps=11)))
## navGraph session, data is not linked
nav3 <- navGraph(ng.iris, settings=list(tk2d=list(linked=FALSE)))
Run the code above in your browser using DataLab