tests/testthat/test-MAPI_CheckData.R

In mapi: Mapping Averaged Pairwise Information

library("testthat")
library("mapi")
test_that("MAPI_CheckData", {
  data("samples")
  data("metric")
  clean.data <- mapi::MAPI_CheckData(samples, metric)
  expect_equal(nrow(clean.data[['samples']]), 200)
  expect_equal(nrow(clean.data[['metric']]), 39800)
})