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/mmSAR2 documentation built on Nov. 21, 2024, 5:03 a.m.