dynamicGraph (version 0.2.2.6)

returnEdgeList: Class dg.VertexEdgeList: The edge list

Description

Return a list of edges, each of class containing dg.VertexEdge.

Objects can be created by calls of the form new("dg.VertexEdgeList", ...).

Usage

returnEdgeList(edge.list, vertices, width = 2, color = "DarkSlateGrey", N = 3,  oriented = NA, types = NULL, edgeClasses = validEdgeClasses())

Arguments

edge.list

A list of vectors identifying the edges. Each vector of edge.list should be a vector of integers giving the indices of the vertices of an edge, or a vector of text strings with the names of the vertices.

vertices

The list of vertices, each of a class containing dg.Vertex. vertices are used to set the initial labels of the edges.

width

A single numeric with the initial width of the edges.

color

A single text string giving the color of the edges.

oriented

Logical, if TRUE then the edges are oriented.

types

A vector of text strings giving the types of the edges, identify which classes the edges should be of, containing the dg.VertexEdge.

N

Integer, N is the number of coordinates of the vertices.

edgeClasses

Returned value from validEdgeClasses, or extension of this matrix.

Value

A list of edges, each of class containing dg.VertexEdge.

Slots

.Data:

Object of class "list".

Extends

Class "dg.EdgeList", directly. Class "dg.list", directly. Class "list", from data part. Class "dg.NodeList", by class "dg.EdgeList". Class "vector", by class "dg.EdgeList". Class "vector", by class "dg.list". Class "vector", by class "list".

Methods

initialize

signature(.Object = "dg.VertexEdgeList"): ...

See Also

vertexList and dg.VertexEdge-class.

Examples

from <- c("contry", "contry", "race", "race",       "sex",  "sex")
to   <- c(   "sex",   "race", "hair",  "eye", "education",  "age")
vertexnames <- unique(sort(c(from, to)))
vertices <- returnVertexList(vertexnames)
# from <- match(from, vertexnames)
# to <- match(to, vertexnames)
edge.list <- vector("list", length(to))
for (j in seq(along = to)) edge.list[[j]] <- c(from[j], to[j])

edges <- returnEdgeList(edge.list, vertices, color = "red", oriented = TRUE)

edges <- new("dg.VertexEdgeList", edge.list = edge.list,
             vertices = vertices, color = "red", oriented = TRUE)

Names(edges)
Colors(edges)
Labels(edges)
LabelPositions(edges)
# Positions(edges)
# Strata(edges)
# Indices(edges)
str(NodeTypes(edges))
str(NodeIndices(edges))
Dashes(edges)
Widths(edges)
Oriented(edges)
Widths(edges) <- rep(1, 7)
Widths(edges) <- rep(1, 6)
Widths(edges)
asDataFrame(edges)