tmp-save/test-check_X.R

In privefl/bigstatsr: Statistical Tools for Filebacked Big Matrices

################################################################################

context("CHECK_X")

mat <- matrix(0, 10, 10)
X <- as.big.matrix(mat)

################################################################################

test_that("is a big.matrix?", {
  expect_error(check_X(mat), ERROR_BIGMATRIX, fixed = TRUE)
  expect_null(check_X(X))
})

################################################################################