dwww Home | Show directory contents | Find package

if (requiet("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")
  })
}

Generated by dwww version 1.15 on Fri Jun 14 22:09:03 CEST 2024.