tests/testthat/test-defineNetwork.R

test_that("Output type", {
  A <- matrix(rbinom(100,1,.2),10,10)
  type <- "simple"
  netA <- defineSBM(A,"poisson",type,directed=TRUE,dimLabels=c("Actor"))
  expect_equal(netA$dimLabels[[1]],"Actor")
  expect_true(is_SBM(netA))
})
GrossSBM/GSBM documentation built on Sept. 18, 2024, 12:59 p.m.