Nothing
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)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.