Nothing
# Run all unit test files
#
# Author: Fabian Model
###############################################################################
rv <- R.Version()
if(as.numeric(rv$major) > 3 |
(as.numeric(rv$major) == 3 &
as.numeric(rv$minor) >= 6.0)){
RNGkind(sample.kind = "Rounding")
}
library("RUnit")
library(mcr)
backup_options <- options()
options(warn = 1)
testSuite <- defineTestSuite(name = "MCReg",
dirs = ".",
testFileRegexp = "runit.*\\.R$",
rngKind = "default",
rngNormalKind = "default")
testData <- runTestSuite(testSuite, verbose = 0L)
printTextProtocol(testData, showDetails = FALSE)
printHTMLProtocol(testData, file = "testProtocol.html")
options(backup_options)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.