context("ldR matrix input")
test_that("the input is a matrix", {
exmtx=matrix(sample(2,40,replace=T),8,5)[,1]
expect_error(ldR(exmtx))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.