tests/testthat/test-sizeR.R

test_that("sizeR Works", {
  X <- array(0, dim = c(3,3,5))
  
  expect_equal(sizeR(M = X), c(3,3,5))
})
mrparker909/MGLMRiem documentation built on March 19, 2020, 3:37 p.m.