dwww Home | Show directory contents | Find package

gfe <- insight:::.get_fixed_effects

test_that(".get_fixed_effects", {
  f <- "am ~ disp:wt + (1|gear) + wt + (1+wt|carb)"
  expect_equal(
    gfe(stats::as.formula(f)),
    stats::as.formula("am ~ disp:wt + wt")
  )

  f <- "am ~ disp:wt + wt + (1|gear) + (1+wt|carb)"
  expect_equal(
    gfe(stats::as.formula(f)),
    stats::as.formula("am ~ disp:wt + wt")
  )

  f <- "am ~ (1|gear) + (1+wt|carb) + disp:wt + wt"
  expect_equal(
    gfe(stats::as.formula(f)),
    stats::as.formula("am ~ disp:wt + wt")
  )

  f <- "am ~ 1 + (1|gear)"
  expect_equal(
    gfe(stats::as.formula(f)),
    stats::as.formula("am ~ 1")
  )

  f <- "am ~ 1 + (1+wt|gear)"
  expect_equal(
    gfe(stats::as.formula(f)),
    stats::as.formula("am ~ 1")
  )

  f <- "am ~ disp:wt + (1|gear) + wt + (1+wt|carb)"
  expect_equal(
    gfe(stats::as.formula(f)),
    stats::as.formula("am ~ disp:wt + wt")
  )

  f <- "am ~ disp:wt + (1|gear) + wt + (1*wt|carb)"
  expect_equal(
    gfe(stats::as.formula(f)),
    stats::as.formula("am ~ disp:wt + wt")
  )

  f <- "am ~ (1|gear) + (1+wt|carb) + disp:wt * wt"
  expect_equal(
    gfe(stats::as.formula(f)),
    stats::as.formula("am ~ disp:wt * wt")
  )

  f <- "am ~ disp:wt + poly(gear, 2) + wt + (1+wt|carb)"
  expect_equal(
    gfe(stats::as.formula(f)),
    stats::as.formula("am ~ disp:wt + poly(gear, 2) + wt")
  )

  f <- "y ~ post + time1 + (1 | g2 / g1 / g0) + (post + time1 - 1 | g2)"
  expect_equal(
    gfe(stats::as.formula(f)),
    stats::as.formula("y ~ post + time1")
  )

  f <- "count ~ mined + (1 | site) + offset(Wtemp)"
  expect_equal(
    gfe(stats::as.formula(f)),
    stats::as.formula("count ~ mined + offset(Wtemp)")
  )

  f <- "count ~ mined + offset(Wtemp) + (1 | site)"
  expect_equal(
    gfe(stats::as.formula(f)),
    stats::as.formula("count ~ mined + offset(Wtemp)")
  )

  f <- "time | cens(censored) ~ age * sex + disease + (1|patient)"
  expect_equal(
    gfe(stats::as.formula(f)),
    stats::as.formula("time | cens(censored) ~ age * sex + disease")
  )

  f <- "success | trials(ntrials) ~ x + (1 | patient)"
  expect_equal(
    gfe(stats::as.formula(f)),
    stats::as.formula("success | trials(ntrials) ~ x")
  )
})

Generated by dwww version 1.15 on Sat Jun 15 19:29:37 CEST 2024.