tests/testthat/test-measure_diffusion.R

In netrics: Many Ways to Measure and Classify Membership for Networks, Nodes, and Ties

test <- play_diffusion(create_tree(12), steps = 2)

test_that("infection total works", {
  expect_values(net_by_infection_total(test), 0.583)
})

test_that("infection complete works", {
  expect_values(net_by_infection_complete(test), Inf)
})