context("test panda.to.alpaca function")
test_that(" panda.to.alpaca works or not", {
load("./testDataset.RData")
alpaca <- pandaToAlpaca(T4Panda_subset,T10Panda_subset,NULL,verbose = F)
expect_equal(alpaca, T4T10Alpaca)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.