context("diag_kernel")
test_that("helper example", {
dk <- diag_kernel(object.rownames = rownames(M)[-1], Gmat.rownames = rownames(G))
expect_equal(as.matrix(dk), diag(3))
expect_equal(dimnames(dk), list(letters[2:4], letters[2:4]))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.