inst/unitTests/test_CandidateFilter.R

In TReNA: Fit transcriptional regulatory networks using gene expression, priors, machine learning

library(TReNA)
library(RUnit)
#----------------------------------------------------------------------------------------------------
printf <- function(...) print(noquote(sprintf(...)))
#----------------------------------------------------------------------------------------------------
runTests <- function()
{
   test_CandidateFilter()
   
} # runTests
#----------------------------------------------------------------------------------------------------
test_CandidateFilter <- function()
{
    printf("--- test_CandidateFilter")

    # Create a filter with an empty matrix
    candidate.filter <- CandidateFilter(matrix())
    checkEquals(is(candidate.filter), "CandidateFilter")

} #test_CandidateFilter
#----------------------------------------------------------------------------------------------------
if(!interactive()) runTests()