Nothing
# require(tcltk)
# demo("source")
# demo("usermenus", package = "dynamicGraph", verbose = FALSE)
# demo("defaultObjects", package = "dynamicGraph", verbose = FALSE)
source(paste(system.file(package = "dynamicGraph"),
"demo.source/defaultObjects.R", sep = "/"))
source(paste(system.file(package = "dynamicGraph"),
"demo.source/usermenus.R", sep = "/"))
# demo("colorlists", package = "dynamicGraph", verbose = FALSE)
# Object <- newYourModelObject("AnModelObject")
Object <- new("your.Model", name = "AnModelObject")
debug.strata <- FALSE
debug.edges <- FALSE
debug.position <- FALSE
debug.update <- FALSE
V.Types <- c("Discrete", "Ordinal", "Discrete",
"Continuous", "Discrete", "Continuous")
V.Names <- c("Sex", "Age", "Eye", "FEV", "Hair", "Shosize")
V.Names <- paste(V.Names, 1:6, sep ="/")
From <- c(1, 2, 3, 4, 5, 8)
To <- c(2, 3, 4, 5, 6, 1)
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.