inst/tinytest/test-boot.R

In muriteams/ergmito: Exponential Random Graph Models for Small Networks

# test_that("boot works", {
  
data(fivenets, package="ergmito")
ans0 <- ergmito(fivenets ~ edges + nodematch("female"))
ans1 <- suppressWarnings(ergmito_boot(ans0, R = 200L, ncpus = 1L))
ans2 <- suppressWarnings(ergmito_boot(ans0, R = 200L, ncpus = 2L))

expect_output(print(ans1), "200 replicates")
expect_output(print(ans2), "200 replicates")
#   
# })