tests/testthat/test-model_parameters.Arima.R

In parameters: Processing of Model Parameters

test_that("model_parameters.Arima", {
  model <- stats::arima(datasets::lh, order = c(1, 0, 0))
  params <- model_parameters(model)
  expect_identical(params$Parameter, c("ar1", "intercept"))
  expect_equal(params$Coefficient, unname(stats::coef(model)), tolerance = 1e-5)
  expect_equal(params$SE, unname(sqrt(diag(model$var.coef))), tolerance = 1e-5)
  expect_identical(attr(params, "pretty_labels"), c(ar1 = "ar1", intercept = "intercept"))
})