tests/testthat/test-aov.R

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

test_that("get_statistic", {
  skip_if(getRversion() < "4.5.0")
  data(penguins)
  fit <- aov(
    formula = body_mass ~ species,
    data = penguins
  )
  out <- get_statistic(fit)
  expect_equal(out$Statistic, 343.62628, tolerance = 1e-4)
})