tests/testthat/test-mpm_split.R

test_that("mpm_split works correctly", {
  matA <- mat_u + mat_f

  x <- mpm_split(matA)

  expect_type(x, "list")
  expect_length(x, 3)
  expect_true(all(x$matC == 0))

  expect_identical(ncol(mat_u), ncol(x$matU))
})

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.