tests/testthat/test-leslie_collapse.R

data(leslie_mpm1)
A <- leslie_mpm1$matU + leslie_mpm1$matF

testthat::expect_error(
  leslie_collapse(cbind(A, A), -4)
)

testthat::expect_true(
  inherits(leslie_collapse(A, 3), "list")
)
jonesor/Rage documentation built on April 3, 2024, 7:47 a.m.