tests/testthat/test-plotTIC.R

In jasenfinch/metabolyseR: Methods for Pre-Treatment, Data Mining and Correlation Analyses of Metabolomics Data

library(metaboData)

context('plotTIC')

test_that('plotTIC works',{
  d <- new('Analysis')
  
  raw(d) <- analysisData(abr1$neg[,300:400],abr1$fact)
  
  pl_scatter <- plotTIC(d,by = 'injorder',colour = 'day',type = 'raw')
  pl_boxplot <- plotTIC(d,by = 'day',colour = 'day',type = 'raw')
  
  expect_s3_class(pl_scatter,'ggplot')
  expect_s3_class(pl_boxplot,'ggplot')
})