| dg.BlockEdge-class {dynamicGraph} | R Documentation |
The class for edges between blocks and for edges between vertices and blocks.
newBlockEdge(node.indices, nodes = NULL, width = 2,
color = "DarkOliveGreen", oriented = TRUE, type = NULL,
label = ifelse(is.null(nodes), "",
paste(Labels(nodes), collapse = "~")),
dash = "")
node.indices |
Vector with abs(node.indices)
the indices of the nodes of the block edge.
If the index is positiv then the node is a vertex,
else it is a block. |
nodes |
List with the nodes of the block edge. Used for
setting the default label. |
width |
Numeric for the width of the block edge. |
color |
Text string with the color of the block edge. |
oriented |
Logical. If TRUE then the block edge is oriented. |
type |
Text string with the type of the block edge. |
label |
Text string with the label of the block edge. |
dash |
Text string for the color pattern of the edge. |
The function is used in returnBlockEdgeList.
dynamicGraphMain will automatic update block edges
when vertices are moved between blocks.
oriented:"logical", see "dg.VertexEdge". vertex.indices:"numeric", see "dg.Edge". width:"numeric", see "dg.Edge". dash:"character", see "dg.Edge". color:"character", see "dg.Edge". label:"character", see "dg.Edge". label.position:"numeric", see "dg.Edge".
Class "dg.Edge", directly.
Class "dg.Node", by class "dg.Edge".
signature(object = "dg.BlockEdge"):
Extract the types ("super classes": "Vertex" or "Block")
of the vertices (nodes) of the edge. signature(x = "dg.BlockEdge"): ... signature(object = "dg.BlockEdge"): ...
The methods of dg.Edge
also applies for dg.BlockEdge.
Jens Henrik Badsberg
returnBlockEdgeList,
dg.Edge-class.
vertices <- returnVertexList(paste("V", 1:4, sep = ""))
block <- newBlock(stratum = 1)
blockedge <- newBlockEdge(c(4, -1),
new("dg.VertexList", list(vertices[[1]], block)))
str(blockedge)
color(blockedge)
label(blockedge)
labelPosition(blockedge)
width(blockedge)
nodeIndicesOfEdge(blockedge)
nodeTypesOfEdge(blockedge)
color(blockedge) <- "Black"
label(blockedge) <- "V1~1"
labelPosition(blockedge) <- c(0, 1, 2)
width(blockedge) <- 1
nodeIndicesOfEdge(blockedge) <- c(1, -1)
str(blockedge)