test_that("varSelLCM Error", {
case1 <- ds.varSelLcm(df = "D",
num.clust = 2)
expect_silent(case1)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.