Nothing
require("RUnit", quietly=TRUE) || stop("RUnit package not found")
require("neaGUI")
runitPat <- ".*_test\\.[rR]$"
runitDirs <- c(".")
suite.neaGUI <- defineTestSuite(name="neaGUI",
dirs=runitDirs,
testFileRegexp=runitPat,
rngKind="default",
rngNormalKind="default")
testResult <- runTestSuite(testsuite.neaGUI )
printTextProtocol(testResult)
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.