tests/testthat/test_IR.R

library(srnadiff)
library(testthat)

context("Checking IR strategy")

exp    <- srnadiffExample()
parameters(exp) <- srnadiffDefaultParameters
ranges <- runIR(exp)

test_that("Running IR method", {
    expect_equal(length(ranges), 8)
})

Try the srnadiff package in your browser

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

srnadiff documentation built on Jan. 7, 2021, 2 a.m.