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")
})

Try the sars package in your browser

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

sars documentation built on Dec. 28, 2022, 2:38 a.m.