## 
## ng_get_col
##
########################################
########################################

library(RnavGraph)

## 2 different data sets...
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))


ng.iris <- ng_data(name = "iris", data = iris[,1:4],
		shortnames = c('s.L', 's.W', 'p.L', 'p.W'),
		group = iris$Species)

data(olive)
d.olive <- data.frame(olive[,-c(1,2)])
ng.olive <- ng_data(name = "Olive",
		data = d.olive,
		shortnames = c("p1","p2","s","oleic","l1","l2","a","e"),
		group = as.numeric(olive[,"Area"]),
		labels = as.character(olive[,"Area"])
)

nav <-  navGraph(list(ng.iris,ng.olive))

ng_get(nav)

## see output
ng_get_color(nav)

ng_get_color(nav, "Olive")


ng_set_color(nav) <- 'red'

ng_set_color(nav,'Olive') <- 'red'



ng_get_size(nav,'iris')
ng_set_size(nav,'iris') <- 2

ng_set_size(nav,'iris') <- sample(1:7, replace=TRUE, 150)