tests/testthat/test-undirected-overlapping-sbms.R

In alexpghayes/fastRG: Sample Generalized Random Dot Product Graphs in Linear Time

test_that("rank 1 overlapping sbms sample", {
  set.seed(27)

  n <- 10
  k <- 1
  pi <- rep(1, k) / k

  B <- matrix(0.5)

  sbm <- overlapping_sbm(n = n, pi = pi, B = B)

  expect_silent(A <- sample_sparse(sbm))
})