tests/testthat/test-model_distrib.R

In migraph: Inferential Methods for Multimodal and Other Networks

test_that("test_distribution works", {
  res <- test_distribution(as_diffusion(play_diffusion(ison_networkers)),
                    as_diffusion(play_diffusion(ison_networkers, thresholds = 75)))
  expect_output(print(res), "statistic")
})