/usr/lib/R/site-library/graph/Scripts/multigraph.R is in r-bioc-graph 1.56.0-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 |
set.seed(123)
V <- LETTERS[1:4]
edL <- vector("list", length=4)
names(edL) <- V
for(i in 1:4)
edL[[i]] <- list(edges=5-i, weights=runif(1))
e1 = new("edgeSetNEL", edgemode="undirected",
edgeL = edL)
x = matrix(rnorm(12), nrow=4, dimnames=list(V, NULL))
d1 = as.matrix(dist(x))
e2 = new("edgeSetAM", edgemode="undirected",
adjMat = ifelse(d1>1, 1, 0))
mg1 = new("multiGraph", nodes = V, edgeL = list(e1, e2))
mg1
edges(mg1)
isDirected(mg1)
numEdges(mg1)
|