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)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.