tests/testthat/test_fit_collection.R

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")
})
txm676/sars documentation built on Nov. 20, 2023, 7:29 p.m.