tests/testthat/test-plot.GCalign.R

context("plot.GCalign")

library(testthat)
data("aligned_peak_data")
x <- aligned_peak_data
out1 <- plot(x)
out2 <- plot(x,which_plot = 'shifts')
out3 <- plot(x,which_plot = 'variation')



test_that("output is correct", {
    expect_equal(out1, 1)
    expect_equal(sd(out2[["shifts"]]), 0.005119064)
    expect_equal(out3[3,1], 0.04)
})

Try the GCalignR package in your browser

Any scripts or data that you put into this service are public.

GCalignR documentation built on Aug. 26, 2020, 9:06 a.m.