inst/testsUnitaires/run_tests.R

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)

Try the btb package in your browser

Any scripts or data that you put into this service are public.

btb documentation built on July 1, 2020, 6:07 p.m.