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))
})

Try the pedmut package in your browser

Any scripts or data that you put into this service are public.

pedmut documentation built on Nov. 5, 2023, 1:10 a.m.