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

Try the Rage package in your browser

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

Rage documentation built on April 4, 2025, 12:51 a.m.