use_package("testthat")
context("simplest Test")
test_that("Mah function.... )", {
x=matrix(data=runif(16,3,6), nrow=4, ncol=1 )
expect_length(x, 4)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.