context("sar_multi")
test_that("sar_multi returns correct results", {
fitC <- sar_multi(galap, obj = c("linear", "power"))
expect_output(str(fitC), "List of 2")
expect_is(fitC, "sars")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.