context("Check rn")
library(invctr)
library(casnet)
test_that("The rn command", {
expect_type(rn(y1 = rnorm(100)), "S4")
expect_type(rn(y1 = rnorm(100), y2 = rnorm(100)), "S4")
expect_type(rn(y1 = rnorm(100), doPlot = TRUE), "S4")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.