tests/testthat/test-test_runall.R

In Clara-Casabona/ExtinctModels: Models to infer the date of extinction

test_that("predict data of extinction", {
  dodo <- data.frame(year = c(1910,1921, 1922,1924,1925,1926), sights = c(1,2,1,1,2,1))
  alpha <- 0.05
  test.year <- 1960
  data.out <- TRUE
  plot <- TRUE
  run.all(dodo, alpha, test.year, data.out,plot)

})