test_that("computeS works", {
expect_error(computeS(1:5), "matrix")
expect_equal(computeS(matrix(rep(1, 5), 5, 1)),
matrix(1/5, 5, 5))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.