Skip to content

Commit

Permalink
Update test-model_parameters.glm.R
Browse files Browse the repository at this point in the history
  • Loading branch information
strengejacke authored Mar 10, 2021
1 parent d7fed24 commit 44ddc13
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions tests/testthat/test-model_parameters.glm.R
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,7 @@ if (require("testthat") && require("parameters") && require("boot")) {
params <- model_parameters(model, ci = c(0.8, 0.9))
expect_equal(c(nrow(params), ncol(params)), c(2, 10))

params <- model_parameters(model, dispersion = TRUE, bootstrap = TRUE, n = 500)
params <- model_parameters(model, dispersion = TRUE, bootstrap = TRUE, iterations = 500)
expect_equal(c(nrow(params), ncol(params)), c(2, 7))

model <- lm(mpg ~ wt + cyl, data = mtcars)
Expand Down Expand Up @@ -41,7 +41,7 @@ if (require("testthat") && require("parameters") && require("boot")) {
params <- model_parameters(model)
expect_equal(c(nrow(params), ncol(params)), c(3, 9))

params <- suppressWarnings(model_parameters(model, bootstrap = TRUE, n = 500))
params <- suppressWarnings(model_parameters(model, bootstrap = TRUE, iterations = 500))
expect_equal(c(nrow(params), ncol(params)), c(3, 6))

params <- model_parameters(model, component = "conditional", effects = "fixed")
Expand Down

0 comments on commit 44ddc13

Please sign in to comment.