tests/testthat/test-evaluate_mad.R

In experDesign: Design Experiments for Batches

test_that("evaluate_mad works", {
  set.seed(48)
  samples <- 10
  m <- matrix(rnorm(samples), nrow = samples)
  i <- create_subset(samples, 4, 3)
  e <- evaluate_mad(i, m)
  expect_length(e, 1L)
})