tests/testthat/test-DECorrInputs.R

context("DECorrInputs")

data(fetchDataHmChimp)

inputBundle <- DECorrInputs(fetchDataHmChimp)

test_that("DECorrInputs() returns 2 tables", {
  
  # check there are 6 output tables
  expect_equal(length(inputBundle), 2)
  
})
ferygood/TEKRABber documentation built on July 31, 2024, 6:36 p.m.