Change test comments from conf.level to level

tidymodels · Mar 20, 2024 · a069165 · a069165
1 parent 2c383a8
commit a069165
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/tests/testthat/test-stats-lm.R b/tests/testthat/test-stats-lm.R
@@ -112,25 +112,25 @@ test_that("augment.lm", {
     newdata = mtcars
   )
 
-  # conf.level defaults to 0.95
+  # level defaults to 0.95
   aug <- augment(fit, newdata = mtcars, interval = "confidence")
   pred <- predict(fit, newdata = mtcars, interval = "confidence", level = 0.95)
   expect_equal(aug$.lower, pred[, "lwr"])
   expect_equal(aug$.upper, pred[, "upr"])
 
-  # conf.level is respected
+  # level is respected
   aug <- augment(fit, newdata = mtcars, interval = "confidence", level = 0.75)
   pred <- predict(fit, newdata = mtcars, interval = "confidence", level = 0.75)
   expect_equal(aug$.lower, pred[, "lwr"])
   expect_equal(aug$.upper, pred[, "upr"])
 
-  # conf.level works for prediction intervals as well
+  # level works for prediction intervals as well
   aug <- augment(fit, newdata = mtcars, interval = "prediction", level = 0.25)
   pred <- predict(fit, newdata = mtcars, interval = "prediction", level = 0.25)
   expect_equal(aug$.lower, pred[, "lwr"])
   expect_equal(aug$.upper, pred[, "upr"])
 
-  # conf.level is ignored when interval = "none"
+  # level is ignored when interval = "none"
   aug <- augment(fit, newdata = mtcars, interval = "none", level = 0.25)
   expect_false(any(names(aug) %in% c(".lower", ".upper")))
 })