1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
context("Bug 1073705")
test_that("Weighted indexing does not remove edges", {
library(igraph)
g <- make_ring(10)
g[1, 2, attr="weight"] <- 0
expect_that("weight" %in% edge_attr_names(g), is_true())
expect_that(E(g)$weight, equals(c(0, rep(NA, 9))))
el <- as_edgelist(g)
g[from=el[,1], to=el[,2], attr="sim"] <- rep(0:1, length=ecount(g))
expect_that("sim" %in% edge_attr_names(g), is_true())
expect_that(E(g)$sim, equals(rep(0:1, 5)))
V(g)$name <- letters[seq_len(vcount(g))]
el <- as_edgelist(g)
g[from=el[,1], to=el[,2], attr="sim"] <- rep(1:0, length=ecount(g))
expect_that(E(g)$sim, equals(rep(1:0, 5)))
})
|
