tests/testthat/test-is_align_mat_class.R

test_that("is_align_mat_class", {

  m <- matrix('S', nrow = 2, ncol = 2)
  expect_false(is_align_mat_class(m))
  expect_true(is_align_mat_class(add_align_mat_class(m)))

})

Try the agvgd package in your browser

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

agvgd documentation built on Sept. 11, 2022, 1:07 a.m.