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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/exNetwork.R
\docType{data}
\name{exNetwork}
\alias{exNetwork}
\alias{exIgraph}
\alias{exNetwork2}
\alias{exIgraph2}
\title{Sample network structure}
\format{
\describe{ \item{exNetwork,exNetwork2}{is of class \code{network}}
\item{exIgraph,exIgraph2}{is of class \code{igraph}} } Objects
\code{exNetwork} and \code{exIgraph} store directed version of the network.
Objects \code{exNetwork2} and \code{exIgraph2} store the undirected version:
all direction information from the edges is removed.
The network consists of 15 vertices and 11 edges. \itemize{ \item Vertex 1 is
an isolate. \item Vertices 2-6 constitute a star with vertex 2 as a center.
\item Vertices 7-8 and 9-10 make two dyads \item Vertcies 11, 12, 13,14 and
15 make a stem-and-leaf network. }
}
\description{
An examples of networks together with network, edge and vertex attributes
used primarly for testing. The same networks are stored in objects of class
\code{network} and \code{igraph}.
}
\details{
Vertices and edges has attribute \code{label}. For vertices these are simply
letters from "a" to "o". For edges these are two-letter sequences
corresponding to the neightboring vertices, i.e. the label for the edges
linking nodes "b" and "c" will be "bc". The order is irrelevant.
In the \code{exNetwork} object the \code{label} attribute is also copied to
the \code{vertex.names} attribute to facilitate plotting.
The \code{exIgraph} object has additional graph attribute \code{layout} so
that by default Fruchterman-Reingold placement is used for plotting.
}
\examples{
if(require(network, quietly=TRUE) ) print(exNetwork)
if( require(igraph, quietly=TRUE) ) print(exIgraph)
# showing-off 'network' versions
if(require(network, quietly=TRUE))
{
op <- par(mar=c(1,1,1,1))
layout( matrix(1:2, 1, 2, byrow=TRUE) )
# need to change the family to device default because of faulty 'igraph'
plot(exNetwork, main="Directed, class 'network'", displaylabels=TRUE)
plot(exNetwork2, main="Undirected, class 'network'", displaylabels=TRUE)
par(op)
}
# not running because of a bug in 'igraph': plot.igraph wants to set default
# font for vertex labels to 'serif', which is not supported on all devices
if(FALSE) {
# showing-off 'igraph' versions
if(require(igraph, quietly=TRUE))
{
op <- par(mar=c(1,1,1,1))
layout( matrix(1:2, 1, 2, byrow=TRUE) )
plot(exIgraph, main="Directed, class 'igraph'")
plot(exIgraph2, main="Undirected, class 'igraph'")
par(op)
}
}
# The data was generated with the following code
if(FALSE) {
# directed igraph
g <- igraph::graph( c(2,1, 3,1, 4,1, 5,1, # star
6,7, 8,9, # two dyads
10,11, 11,12, 12,13, 13,14, 14,12), # stem-leaf
n=14, directed=TRUE)
# add some vertex attributes
vl <- letters[seq(1, vcount(g))]
g <- igraph::set_vertex_attr(g, "label", value=vl)
# add some edge attributes
m <- igraph::as_edgelist(g)
l <- matrix(vl[m+1], ncol=2)
el <- apply(l, 1, paste, collapse="")
g <- igraph::set_edge_attr(g, "label", value=el)
g <- igraph::set_graph_attr(g, "layout", igraph::layout_with_fr)
rm(vl, l, m, el)
exIgraph <- g
# undirected igraph
exIgraph2 <- igraph::as.undirected(exIgraph)
exIgraph2 <- igraph::set_edge_attr(exIgraph2, "label",
value=igraph::edge_attr(exIgraph, "label"))
# copy as a 'network' object through adjacency matrix
m <- igraph::as_adjacency_matrix(exIgraph)
g <- network::network(m, vertex.attr=list(label=vattr(exIgraph, "label")),
vertex.attrnames="label", directed=TRUE)
network::set.vertex.attribute(g, "vertex.names", value=vattr(exIgraph, "label"))
network::set.edge.attribute(g, "label", igraph::edge_attr(exIgraph, "label"))
exNetwork <- network::network.copy(g)
# copy as a 'network' object through adjacency matrix
m <- igraph::as_adjacency_matrix(exIgraph2)
g <- network::network(m, vertex.attr=list(label=vattr(exIgraph2, "label")),
vertex.attrnames="label", directed=FALSE)
network::set.vertex.attribute(g, "vertex.names", value=vattr(exIgraph2, "label"))
network::set.edge.attribute(g, "label", igraph::edge_attr(exIgraph2, "label"))
exNetwork2 <- network::network.copy(g)
}
}
\keyword{datasets}
|
