Nothing
require(RnavGraph) || stop("RnavGraph library not available")
require(hexbin) || stop("hexbin library not available")
require(MASS) || stop("MASS library not available")
local({
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))
V <- shortnames(ng.iris)
G <- completegraph(V)
LG <- linegraph(G)
LGnot <- complement(LG)
ng.lg <- ng_graph(name = '3D Transition', graph = LG, layout = 'circle')
ng.lgnot <- ng_graph(name = '4D Transition', graph = LGnot, layout = 'circle')
## Note the plotting functions have to be saved in the .GlobalEnv environment
## Note, currently order arguments does not work correctly
myPlot <<- function(x,y,group,labels,order) {
plot(hexbin(x,y,xbins=15))
}
viz1 <- ng_2d_myplot(ng.iris,ng.lg,fnName = "myPlot" , device = "base", scaled=TRUE)
options(device.ask.default = FALSE) ## omit hit return to see next plot message
nav <- navGraph(ng.iris,ng.lg, viz1)
dev.control(displaylist = "inhibit") ## don't svae previous plotting instructions
})
cat(paste("\n\nThe source code of this demo file is located at:\n",system.file("demo", "ng_2d_myplot_hexbin.R", package="RnavGraph"),"\n\n\n"))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.