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)