File: test-rank_deficienty.R

package info (click to toggle)
r-cran-parameters 0.24.2-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 3,852 kB
  • sloc: sh: 16; makefile: 2
file content (14 lines) | stat: -rw-r--r-- 504 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
set.seed(123)
data(mtcars)
model <-
  stats::lm(
    formula = wt ~ am * cyl * vs,
    data = mtcars
  )

test_that("model_parameters-rank_deficiency", {
  expect_message(model_parameters(model))
  params <- suppressWarnings(suppressMessages(model_parameters(model)))
  expect_equal(params$Parameter, c("(Intercept)", "am", "cyl", "vs", "am:cyl", "am:vs"), tolerance = 1e-3)
  expect_equal(params$Coefficient, c(2.28908, -1.37908, 0.22688, -0.26158, 0.08062, 0.14987), tolerance = 1e-3)
})