context("nucdivR input")
test_that("input of 2 matrices", {
exmtx=matrix(sample(2,80,replace=T),ncol=10,nrow=8)
exmtx1=matrix(sample(2,80,replace=T),ncol=10,nrow=8)
expect_error(nucdivR(exmtx))
expect_error(nucdivR(exmtx,exmtx1[,1]))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.