tests/testthat/test-rowMultiply.R

context("rowMultiply")

test_that("Rowmultiply works", {
    n = 50; p = 100
    mat = matrix(rnorm(n*p), n,p)
    vec = rnorm(p)
    expect_equal(rowMultiply(mat, vec), t(t(mat)*vec))
})

Try the reconsi package in your browser

Any scripts or data that you put into this service are public.

reconsi documentation built on Nov. 8, 2020, 5:04 p.m.