# Test fails, look at error message from original function
test_that("dpssap_test", {
m <- 1
expect_error(dpssap(m, 1), "is.matrix(V) is not TRUE")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.