inst/unitTests/test_plotExpressionProfiles.R

In geNetClassifier: Classify diseases and build associated gene networks using gene expression profiles

##
## plotExpressionProfiles()
## function(eset, genes=NULL, fileName=NULL, geneLabels=NULL, sampleLabels=NULL, labelsOrder=NULL, showSampleNames=FALSE, showMean= FALSE, sameScale=TRUE, verbose=TRUE)
##
## Plots the expression of the given genes in all the given samples
# Input:  eSet, gene list...
# Output: Plot

test_plotExpressionProfiles <- function()
{
    myEset <- rbind(1:4, c(rep(1,2), rep(2,2)))
    rownames(myEset) <- c("gene1","gene2")

    # Nothing should be returned (NULL)
    checkEquals(plotExpressionProfiles(eset=myEset, genes=rownames(myEset), sampleLabels=c(rep("one", 2), rep("two", 2))), NULL)
}