tests/testthat/test_coleman.R

context("coleman")

test_that("coleman main returns correct results", {
  data(cole_sim)
  fit <- coleman(cole_sim[[1]], cole_sim[[2]])
  expect_equal(round(sum(fit$Predicted_values), 2), 99.60)
  expect_output(str(fit), "List of 4")
  expect_is(fit, "coleman")
  expect_no_error(plot(fit))
  expect_no_error(plot(fit, ModTitle = "A"))
})

Try the sars package in your browser

Any scripts or data that you put into this service are public.

sars documentation built on April 3, 2025, 7:07 p.m.