tests/testthat/test-data.R

In DPComb: Discrete p-Value Combination Tests

#Use the testthat package to test data
#Created by ZWu, Feb 14, 2025.

data("case_control")

test_that("case_control dataset is loaded correctly", {
  # Check that the dataset is a data frame with 2000 rows and 16 columns
  expect_true(is.data.frame(case_control))
  expect_equal(nrow(case_control), 2000)
  expect_equal(ncol(case_control), 16)
})