tests/testthat/test-sampling-index-bug.R

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

test_that("degenerate test case 1 succeeds", {
  set.seed(7)

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

  B <- diag(rep(0.5, k))

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

  expect_silent(sample_sparse(sbm))
})

test_that("degenerate test case 2 succeeds", {
  set.seed(7)

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

  B <- diag(rep(0.5, k))

  dsbm <- directed_dcsbm(pi_in = pi, pi_out = pi, B = B, theta_in = rep(1, n), theta_out = rep(1, n), sort_nodes = TRUE)

  expect_silent(sample_sparse(dsbm))
})

test_that("degenerate test case 3 succeeds", {
  set.seed(9)

  n <- 10
  d <- 5
  k_in <- 10
  k_out <- 5

  pi_in <- rep(1, k_in)
  pi_out <- rep(1, k_out)

  B <- matrix(0, nrow = k_out, ncol = k_in)
  diag(B) <- 0.5

  dsbm <- directed_dcsbm(pi_in = pi_in, pi_out = pi_out, B = B, theta_in = rep(1, n), theta_out = rep(1, n), sort_nodes = TRUE)

  expect_silent(sample_sparse(dsbm))
})