| setBlocks {dynamicGraph} | R Documentation |
Create a block list with positioning the vertices in the blocks.
Objects can be created by calls of the form new("dg.BlockList", ...).
setBlocks(block.list, vertices, labels = NULL,
right.to.left = FALSE, nested.blocks = FALSE,
blockColors = NULL, color = "Grey", N = 3)
block.list |
The list of vectors identifying the blocks.
Each item in the list is a vector with of the indices (or text
strings for names) of vertices of a block.
|
vertices |
The list of vertices, each
containing the class dg.Vertex. Returned with positions
set in the interval of the blocks. |
labels |
List of text strings with the labels of the
blocks. If labels is set to NULL then labels are
found as names(block.list).
|
right.to.left |
Logical. If right.to.left is set to TRUE
then the explanatory blocks are drawn to the right.
|
nested.blocks |
Logical. If nested.blocks then the
blocks are drawn nested. |
blockColors |
Vector of text string with the blockColors
of the blocks. |
color |
Single text string with color of the blocks.
Only used when blockColors is not given. |
N |
Integer, N is the number of coordinates of the
vertices and block corners. |
A list with components
Blocks |
The list of blocks, each of class
dg.Block. |
Vertices |
The list of vertices, with the positions of the vertices updated such the vertices has positions within the blocks. |
.Data:"list".
Class "dg.NodeList", directly.
Class "dg.list", directly.
Class "list", from data part.
Class "vector", by class "dg.NodeList".
Class "vector", by class "dg.list".
Class "vector", by class "list".
signature(blockList = "dg.BlockList"): ... signature(blockList = "dg.BlockList"): ... signature(blockList = "dg.BlockList"): ... Jens Henrik Badsberg
require(tcltk)
require(dynamicGraph)
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, 6)
To <- c(2, 3, 4, 5, 6, 1)
# A block recursive model:
Blocks <- list(Basic = c(2, 1), Intermediate = c(5, 4, 3), Now = c(6))
V.Names <- paste(V.Names, c(1, 1, 2, 2, 2, 3), sep =":")
graph <- new("dg.simple.graph", vertex.names = V.Names, types = V.Types,
from = From, to = To, blocks = Blocks)
W <- dg(graph,
control = dg.control(width = 600, height = 600, drawblocks = TRUE,
drawBlockBackground = FALSE, title = "DrawBlocks",
namesOnEdges = FALSE))
# A block recursiv model, without drawing blocks:
W <- dg(simpleGraphToGraph(graph, control = dg.control(drawblocks = FALSE)),
control = dg.control(width = 600, height = 600, title = "No blocks drawn"))
# A block recursive model with nested blocks:
W <- dg(simpleGraphToGraph(graph,
control = dg.control(nested.blocks = TRUE,
blockColors =
paste("Grey", 100 - 2 * (1:10), sep = ""))),
control = dg.control(width = 600, height = 600, title = "Nested blocks"))
# The block list of the last example:
vertices <- returnVertexList(V.Names, types = V.Types)
blockList <- setBlocks(Blocks, vertices = vertices, nested.blocks = TRUE,
blockColors = paste("Grey", 100 - 2 * (1:10), sep = ""))
names(blockList)
str(blockList$Blocks[[1]])
names(blockList$Blocks)
Names(blockList$Blocks)
Labels(blockList$Blocks)
LabelPositions(blockList$Blocks)
Positions(blockList$Blocks)
Strata(blockList$Blocks)
Colors(blockList$Blocks)
NodeAncestors(blockList$Blocks)
NodeDescendants(blockList$Blocks)
Visible(blockList$Blocks)
Indices(blockList$Blocks)
names(blockList$Vertices)
Names(blockList$Vertices)
Labels(blockList$Vertices)
LabelPositions(blockList$Vertices)
Positions(blockList$Vertices)
Strata(blockList$Vertices)
Colors(blockList$Vertices)
Indices(blockList$Vertices)
asDataFrame(blockList$Vertices)
asDataFrame(blockList$Blocks)