tests/testthat/test-model_parameters.fixest_multi.R

In parameters: Processing of Model Parameters

skip_if_not_installed("fixest")

skip_on_cran()


set.seed(123)
iris$x <- rnorm(150)

test_that("model_parameters.fixest_multi", {
  mod <- fixest::feols(c(Petal.Width, Sepal.Width) ~ x + csw0(Petal.Length, Sepal.Length) | Species, iris)
  expect_snapshot(print(model_parameters(mod)))
  expect_snapshot(print(ci(mod)))
})
test_that("model_parameters.fixest_multi", {
  mod <- fixest::feols(c(Petal.Width, Sepal.Width) ~ x + Petal.Length | Species, iris)
  expect_snapshot(print(model_parameters(mod)))
  expect_snapshot(print(ci(mod)))
})
test_that("model_parameters.fixest_multi", {
  mod <- fixest::feols(Petal.Width ~ x + csw0(Petal.Length, Sepal.Length) | Species, iris)
  expect_snapshot(print(model_parameters(mod)))
  expect_snapshot(print(ci(mod)))
})