Nothing
set.seed(4901)
x <- rnorm(8)
test_that("fastHadamard() is equivalent to multiplication by design matrix",
{
expect_equal(c(designMatrix(3) %*% x), fastHadamard(x))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.