#' unit test launcher
#'
#' aw ff cb elh
pkgs <- c("RUnit")
sapply(pkgs, library, character.only=T)
testSuite.pmmmf <- defineTestSuite(name = "PMMMF",
dirs = "R/Test/",
testFileRegexp = "^+.R",
testFuncRegexp = "test.+")
testResult <- runTestSuite(testSuites = testSuite.pmmmf)
printTextProtocol(testResult)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.