tests/testthat/test-nlmer.R

In insight: Easy Access to Model Information for Various Model Objects

skip_if_not_installed("lme4")

set.seed(123)
startvec <- c(Asym = 200, xmid = 725, scal = 350)
nm1 <-
  lme4::nlmer(
    formula = circumference ~ SSlogis(age, Asym, xmid, scal) ~ Asym | Tree,
    data = Orange,
    start = startvec
  )

test_that("model_info", {
  skip_if(getRversion() < "4.1.0")
  expect_true(model_info(nm1)$is_linear)
})

test_that("find_statistic", {
  expect_identical(find_statistic(nm1), "t-statistic")
})