test_that("Can successfully covert the output of fv_sample to rstan format", {
skip_on_cran()
rstanformat <- convert_to_stanfit(fit1)
expect_type(rstanformat, "S4")
expect_equal(class(rstanformat)[1], "stanfit")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.