tests/testthat/test-matrices.R

set.seed(4901)
x <- rnorm(8)

test_that("fastHadamard() is equivalent to multiplication by design matrix",
  {
    expect_equal(c(designMatrix(3) %*% x), fastHadamard(x))
  })
rje42/rje documentation built on April 3, 2024, 11:08 p.m.