Nothing
test_that("rsm_model works", {
D <- c(2,2,3,3)
mod1 <- rsm_model(D)
expect_equal(dim(mod1$m.seq),c(25,10))
expect_equal(dim(mod1$prob.dists),c(25,4))
expect_equal(mod1$M$M1[1],0.889)
})
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.