1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
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)))
})
|
