Description Usage Arguments Author(s) Examples
Simple graph to graph
1 2 | simpleGraphToGraph(sdg = NULL, frameModels = NULL, dg = NULL,
control = dg.control(...), ...)
|
sdg |
Object of class |
frameModels |
Object of class |
dg |
Object of class |
control |
|
... |
Optional arguments.
The list |
Jens Henrik Badsberg
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 | require(tcltk); require(dynamicGraph)
control <- dg.control(width = 150, height = 200, margin = 200)
# modelObject <- newDefaultModelObject("AnModelObject")
modelObject <- new("dg.Model", name = "AnModelObject")
V.Types <- c("Discrete", "Ordinal", "Discrete",
"Continuous", "Discrete", "Continuous")
V.Names <- c("Sex", "Age", "Eye", "FEV", "Hair", "Shosize")
V.Labels <- paste(V.Names, 1:6, sep ="/")
From <- c(1, 2, 3)
To <- c(2, 3, 1)
simpleGraphZ.1 <- new("dg.simple.graph", vertex.names = V.Names[1:3],
labels = V.Labels[1:3], types = V.Types[1:3],
from = From, to = To)
graphZ.1 <- simpleGraphToGraph(simpleGraphZ.1)
Z.0 <- dg(simpleGraphZ.1, modelObject = modelObject,
control = control, title = "Z")
Z.00 <- wDG(sdg = simpleGraphZ.1, object = modelObject,
control = control, title = "Z")
Z <- dg(graphZ.1, modelObject = modelObject, control = control, title = "Z")
From <- c(2, 3)
To <- c(3, 1)
simpleGraphW.1 <- new("dg.simple.graph", from = From, to = To)
graphW.1 <- simpleGraphToGraph(simpleGraphW.1,
vertexList = graphZ.1@vertexList,
blockList = graphZ.1@blockList)
W <- addModel(graphW.1, frameModels = Z)
simpleGraphV.1 <- new("dg.simple.graph", from = From, to = To)
graphV.1 <- simpleGraphToGraph(simpleGraphV.1,
Vertices = graphZ.1@vertexList,
BlockList = graphZ.1@blockList)
V <- addView(graphV.1, frameModels = Z, modelIndex = 1, viewType = "Factor")
From <- 1
To <- 2
simpleGraphU.1 <- new("dg.simple.graph", from = From, to = To)
graphU.1 <- simpleGraphToGraph(simpleGraphU.1)
graphU.1 <- simpleGraphToGraph(simpleGraphU.1,
Vertices = graphZ.1@vertexList,
BlockList = graphZ.1@blockList)
graphU.1 <- simpleGraphToGraph(simpleGraphU.1,
vertexList = graphZ.1@vertexList,
blockList = graphZ.1@blockList)
graphU.1 <- simpleGraphToGraph(from = From, to = To,
vertexList = graphZ.1@vertexList,
blockList = graphZ.1@blockList)
U <- replaceModel(graphU.1,
frameModels = Z, modelIndex = 1, graphIndex = 1,
title = "U")
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.