1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
test_that("ordered factors", {
data(PlantGrowth)
m_ord <- lm(weight ~ as.ordered(group), PlantGrowth)
pt <- parameters_type(m_ord)
mp <- model_parameters(m_ord)
expect_identical(pt$Type, c("intercept", "ordered", "ordered"))
expect_identical(pt$Parameter, c("(Intercept)", "as.ordered(group).L", "as.ordered(group).Q"))
expect_identical(mp$Parameter, c("(Intercept)", "as.ordered(group).L", "as.ordered(group).Q"))
expect_identical(
attributes(mp)$pretty_names,
c(
`(Intercept)` = "(Intercept)", `as.ordered(group).L` = "group [linear]",
`as.ordered(group).Q` = "group [quadratic]"
)
)
})
|
