tests/testthat/test-blockmodel.R

In signnet: Methods to Analyse Signed Networks

test_that("blockmodeling works", {
  data("tribes")
  clu <- signed_blockmodel(tribes,k = 3,alpha=0.5,annealing = TRUE)
  expect_lte(max(clu$membership),3)
})

test_that("blockmodeling no anneal works ", {
  data("tribes")
  clu <- signed_blockmodel(tribes,k = 3,alpha=0.5,annealing = FALSE)
  expect_lte(max(clu$membership),3)
})

test_that("blockmodeling sign check works", {
  g <- igraph::graph.full(5)
  expect_error(signed_blockmodel(g))
})

test_that("blockmodeling k error works", {
  data("tribes")
  expect_error(signed_blockmodel(tribes))
})

test_that("general blockmodeling works", {
  data("tribes")
  clu <- signed_blockmodel_general(tribes,
                                   blockmat = matrix(c(1,-1,-1,-1,1,-1,-1,-1,1),3,3,byrow = T))
  expect_lte(max(clu$membership),3)
})

test_that("general blockmodeling blockmat error works", {
  data("tribes")
  expect_error(signed_blockmodel_general(tribes))
})

test_that("general blockmodeling blockmat error 2 works", {
  data("tribes")
  B <- matrix(c(2,2,2,2),2,2)
  expect_error(signed_blockmodel_general(tribes,blockmat=B))
})

test_that("general blockmodeling sign check works", {
  g <- igraph::graph.full(5)
  expect_error(signed_blockmodel_general(g))
})