tests/testthat/test-PlotDistribution.R

context("Test: PlotDistribution() ")

data(PhyloExpressionSetExample)
data(DivergenceExpressionSetExample)

nonStandardExpressionSet <- PhyloExpressionSetExample[, 2:9]

test_that(
        "is.ExpressionSet() throughs error when no ExpressionSet is entered to PlotDistribution()",
        {
                expect_error(
                        PlotDistribution(nonStandardExpressionSet)
                        )
        }
)
YTLogos/myTAI documentation built on May 19, 2019, 1:46 a.m.