tests/testthat/test_plots.R

test_that("neutralitytest returns correct object", {
  expect_is(vaf_histogram(neutralitytest(VAFneutral)), "ggplot")
  expect_is(normalized_plot(neutralitytest(VAFneutral)), "ggplot")
  expect_is(lsq_plot(neutralitytest(VAFneutral)), "ggplot")
  expect_is(plot_all(neutralitytest(VAFneutral)), "ggplot")
})
marcjwilliams1/neutralitytestr documentation built on Aug. 1, 2018, 8:44 p.m.