# Check objects creation
#
# Author: Emilio L. Cano
###############################################################################
context("Object Creation")
# TODO: insert a useful test
testModel <- newSMS("aModel")
test_that("An empty SMS object can be created",
{
expect_that(class(testModel), matches("optimSMS"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.