tests/testthat/test-mi.R

In special-uor/smpds: The SPECIAL Modern Pollen Data Set for Climate Reconstructions

test_that("mi works", {
  # Load test data
  test_data <- system.file("testdata/test_data_365days.Rds",
                           package = "smpds") %>%
    readr::read_rds()
  # Data frame (tibble) as input
  expected_t1 <- test_data %>%
    dplyr::mutate(mi = c(0.8239492808809,
                         0.80238254172581,
                         0.769778479936967,
                         0.725173084451647,
                         0.667900286793687))
  expect_equal(smpds::mi(test_data), expected_t1)

  # Invalid input, list
  expect_error(smpds::mi(test_data$tmp))
})