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")
})
frareb/devRate documentation built on Aug. 30, 2023, 5:25 a.m.