data(olive)
ng.olive <- ng_data(name = "Olive",
data = olive[,-c(1,2)],
shortnames = c("p1","p2","s","ol","l1","l2","a","e"),
group = as.numeric(olive$Area)+1
)
edgeWts <- scagEdgeWeights(data = ng.olive,
scags = c("Clumpy", "Skinny"))
G1 <- scagGraph(edgeWts, topFrac = 0.2)
edgeWts <- scagEdgeWeights(data = ng.olive,
scags = c("Clumpy", "Skinny"),
combineFn = max)
G2 <- scagGraph(edgeWts, topFrac = 0.1)
## Now you can start a navGraph session
nav <- navGraph(ng.olive, G1)
nav <- navGraph(ng.olive, G2)
Run the code above in your browser using DataLab