# A unit test for armaroots.R
if(require(testthat))
{
context("Testing armaroots")
test_that("Tests for plot.Arima()", {
arimafit <- Arima(lynx, c(2,0,2), include.mean = FALSE)
plot(arimafit)
plot(arimafit, type = "ma")
plot(arimafit, type = "ar")
expect_error(plot(Arima(lynx, c(0,1,0))))
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.