library('RUnit')
testsuite.btb <- defineTestSuite("btb",
dirs = paste0(getwd(), "/btb/inst/testsUnitaires"),
testFileRegexp = "^test_.+\\.R",
testFuncRegexp = "^test.+",
rngKind = "Marsaglia-Multicarry",
rngNormalKind = "Kinderman-Ramage")
testResult <- runTestSuite(testsuite.btb)
printTextProtocol(testResult)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.