context("Creating SVM Packages")
test_that("empty method produces an error", {
# call without parameters to get an exception
# expect_error(createSVMWrapper(), "is missing, with no default")
} )
test_that("creating SVM Package works", {
# create just a package
# svmObject = createSVMWrapper ("oneSVM")
# expect_equal (svmObject$method, "oneSVM")
# expect_equal (class(svmObject)[2], "SVMWrapper")
} )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.