Add tests for hypotheses to inferences

Note it works for bootstrapping, but not for simulation based
vincentarelbundock · Sep 21, 2023 · e3ce134 · e3ce134
1 parent 48cc90f
commit e3ce134
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/inst/tinytest/test-inferences.R b/inst/tinytest/test-inferences.R
@@ -134,5 +134,11 @@ p <- avg_predictions(mod, by = "cyl") |> inferences(method = "simulation", R = 2
 expect_inherits(p, "predictions")
 
 
+# inferences with hypotheses
+mod <- lm(mpg ~ hp + cyl, data = mtcars)
+p <- hypotheses(mod, hypothesis = "hp/cyl=1") |> inferences(method = "boot", R = 25)
+# THIS BREAKS. Gets upset about passing an empty list through dots.
+p <- hypotheses(mod, hypothesis = "hp/cyl=1") |> inferences(method = "simulation", R = 25)
+
 
-rm(list = ls())
+rm(list = ls())