Nothing
# Test with block recursive model:
# demo("startup.0", package = "dynamicGraph", verbose = FALSE)
source(paste(system.file(package = "dynamicGraph"),
"Demo/startup.0.R", sep = "/"))
Block.tree <- list(Vertices = c("country"), g = 30,
X = list(Vertices = c("sex", "race"), g = 30,
A = list(Vertices = c("hair", "eye"), g = 30,
horizontal = FALSE),
B = list(Vertices = c("education"), g = 30),
C = list(Vertices = c("age"), g = 30)))
From <- c("country", "country", "sex", "sex", "race", "race")
To <- c( "sex", "race", "hair", "eye", "education", "age")
v <- unlist(Block.tree)
V.Names <- v[grep("Vertices", names(v))]
rm(v)
names(V.Names) <- NULL
V.Types <- rep("Discrete", length(V.Names))
From <- match(From, V.Names)
To <- match(To, V.Names)
Z <- DynamicGraph(V.Names, V.Types, From, To, block.tree = Block.tree,
object = Object,
width = 600, height = 600, drawblocks = TRUE,
UserMenus = Menus, overlaying = TRUE,
debug.strata = debug.strata, debug.edges = debug.edges,
debug.position = debug.position, debug.update = debug.update)
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.