context("test ALPACA result")
test_that("ALPACA works", {
load("./testDataset.RData")
simp.alp <- alpaca(simp.mat,NULL,verbose=F)
expect_equal(as.vector(simp.alp[[1]]),simp.memb)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.