tests/testthat/test-evaluate_helper.R

In llrs/experDesign: Design Experiments for Batches

test_that("evaluate_helper works", {
  m <- matrix(1, ncol = 2, nrow = 2)
  vec <- 1:2
  res <- evaluate_helper(m, vec)
  expect_equal(res, c(0L, 1L))
})

test_that("evaluate_helper mean", {
  m <- matrix(1, ncol = 2, nrow = 2)
  m[1, 1] <- 0
  vec <- 1:2
  res <- evaluate_helper(m, vec)
  expect_equal(res, c(0.5, 1L))
})