tests/testthat/test-width_boxplot.R

test_that("width_boxplot works",{
  
  data("encode_H3K27ac") 
  peaklist <- list("encode"=encode_H3K27ac)
  
  p <- EpiCompare::width_boxplot(peaklist)
  testthat::expect_true(methods::is(p$plot,"ggplot"))
  testthat::expect_true(methods::is(p$data,"data.frame"))
})
neurogenomics/EpiCompare documentation built on Oct. 18, 2024, 11:04 p.m.