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), 19)
})
mzytnicki/srnadiff documentation built on March 7, 2023, 2:18 a.m.