tests/testthat/test-PlotPattern.R

In HajkD/myTAI: Evolutionary Transcriptomics

context("Test: PlotPattern() ")

data(PhyloExpressionSetExample)
data(DivergenceExpressionSetExample)

nonStandardExpressionSet <- PhyloExpressionSetExample[, 2:9]

test_that("is.ExpressionSet() throughs error when no ExpressionSet is entered to PlotPattern()",
          {
                  expect_error(
                          PlotPattern(nonStandardExpressionSet)
                  )
          })