tests/testthat/test-stabilize.R

test_that("stabilization works", {
  m = mutationMatrix("random", alleles = 1:2, afreq = c(.5,.5), seed = 123)
  m2 = stabilize(m)
  expect_true(isStationary(m2))
})
magnusdv/pedmut documentation built on Jan. 31, 2024, 7:06 a.m.