context("Plot")
test_that("plot it works", {
out <- plot_pred(
pars = c(1,1,1,1),
Tlevel1 = rnorm(10),
Tlevel2 = rnorm(10))
expect_equal(TRUE, out$xpd)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.