tests/testthat/test_devRate_devRateModelAll.R

test_that("devRateModelAll", {
  myDf <- exTropicalMoth$raw$larva
  fitAll <- devRateModelAll(
    dfData = myDf,
    algo = "LM",
    control = list(maxiter = 500))
  expect_is(fitAll, "list")
})

Try the devRate package in your browser

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

devRate documentation built on Aug. 24, 2023, 9:07 a.m.