tests/testthat/test-group_sizes.R

In mbojan/isnar: Introduction to Social Network Analysis with R

library(isnar)

context("Proper group sizes are computed")


test_that("Group sizes for White network are correct", {
          mm <- mixingm( Wnet, "gender", full=TRUE )
          gs <- group_sizes(mm, directed=FALSE, loops=FALSE )
          expect_equivalent( gs, c(5, 5))
} )