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")
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.