inst/testfiles/reproduce/reproduce.R

#!/usr/bin/Rscript
# vim:set ff=unix expandtab ts=2 sw=2:
source("prolog.R")
alltests <- defineTestSuite(
   name="allTests",
   dirs=".",
   testFileRegexp = "^runit\\.reproduceError.+\\.[rR]",
   testFuncRegexp = "^test.+",
   #rngKind = "Marsaglia-Multicarry",
   #rngNormalKind = "Kinderman-Ramage"
)

testResult <- runTestSuite(alltests)
printTextProtocol(testResult)

Try the inlinedocs package in your browser

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

inlinedocs documentation built on May 2, 2019, 4:44 p.m.