context("simulatemixdata")
test_that("simulatemixdata generates matrix with the correct dimensions",{
dat <- simulatemixdata(1000,20)
expect_equal(dim(dat$L),c(1000,20))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.