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))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.