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 Sept. 30, 2023, 1:06 a.m.