1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
context("make_bipartite_graph")
test_that("make_bipartite_graph works", {
library(igraph)
I <- matrix(sample(0:1, 35, replace=TRUE, prob=c(3,1)), nc=5)
g <- graph_from_incidence_matrix(I)
edges <- unlist(sapply(seq_len(nrow(I)), function(x) {
w <- which(I[x,] != 0) + nrow(I)
if (length(w)!=0) { as.vector(rbind(x, w)) } else { numeric() }
}))
g2 <- make_bipartite_graph(seq_len(nrow(I)+ncol(I)) > nrow(I), edges)
I2 <- as_incidence_matrix(g2)
expect_that(I2, is_equivalent_to(I))
})
|
