library(RUnit)
source("./createTestMatrix.R")
#----------------------------------------------------------------------------------------------------
runTests <- function()
{
test_createTestMatrix()
} # runTests
#----------------------------------------------------------------------------------------------------
test_createTestMatrix <- function()
{
message(sprintf("--- test_createTestMatrix"))
} # test_createTestMatrix
#----------------------------------------------------------------------------------------------------
if(!interactive())
runTests()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.