Nothing
library(igraph)
test_that("undirected graphs allow_self_loops = FALSE", {
set.seed(1)
n <- 1000
k <- 5
X <- matrix(rpois(n = n * k, 1), nrow = n)
S <- matrix(runif(n = k * k, 0, .1), nrow = k)
ufm <- undirected_factor_model(
X, S,
expected_density = 0.1,
allow_self_loops = FALSE
)
edgelist <- sample_edgelist(ufm,)
expect_false(any(edgelist$from == edgelist$to))
A <- sample_sparse(ufm)
expect_false(any(diag(A) > 0))
igraph <- sample_igraph(ufm)
expect_false(any(diag(get.adjacency(igraph)) > 0))
### sampling graphs as tidygraph graphs ---------------
tbl_graph <- sample_tidygraph(ufm)
expect_false(any(diag(get.adjacency(tbl_graph)) > 0))
})
test_that("directed graphs allow_self_loops = FALSE", {
set.seed(2)
n2 <- 1000
k1 <- 5
k2 <- 3
d <- 500
X <- matrix(rpois(n = n2 * k1, 1), nrow = n2)
S <- matrix(runif(n = k1 * k2, 0, .1), nrow = k1, ncol = k2)
Y <- matrix(rexp(n = k2 * d, 1), nrow = d)
fm <- directed_factor_model(X, S, Y, expected_density = 0.01, allow_self_loops = FALSE)
edgelist <- sample_edgelist(fm)
expect_false(any(edgelist$from == edgelist$to))
A <- sample_sparse(fm)
expect_false(any(diag(A) > 0))
igraph <- sample_igraph(fm)
expect_false(any(diag(get.adjacency(igraph)) > 0))
### sampling graphs as tidygraph graphs ---------------
tbl_graph <- sample_tidygraph(fm)
expect_false(any(diag(get.adjacency(tbl_graph)) > 0))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.