tests/testthat/test-rowMultiply.R

context("rowMultiply")

n = 50; p = 100
mat = matrix(rnorm(n*p), n,p)
vec = rnorm(p)

test_that("Rowmultiply works", {
  expect_equal(rowMultiply(mat, vec), t(t(mat)*vec))
})
CenterForStatistics-UGent/compIntegrate documentation built on Aug. 4, 2023, 1:08 p.m.