context("Trivial tests for teststan")
test_that("stanmodels exist", {
expect_true(exists("stanmodels"), "No stanmodels found")
})
test_that("stanmodels$test1 exists", {
expect_silent(stanmodels$test1)
})
test_that("Sampling from Stan works", {
fit = simple_stan()
expect_s4_class(fit, "stanfit")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.