add some basic tests just to run fitted_values on some LSS and scam m…

…odels
gavinsimpson · Oct 17, 2023 · ad8599b · ad8599b
1 parent 11c7cd1
commit ad8599b
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/tests/testthat/test-fitted-values.R b/tests/testthat/test-fitted-values.R
@@ -78,3 +78,15 @@ test_that("fitted_values() works for an ocat GAM", {
     expect_s3_class(fv, c("tbl_df", "tbl", "data.frame"))
     expect_identical(nrow(new_df), nrow(fv))
 })
+
+test_that("fitted values works for a univariate scam model", {
+    expect_silent(fv <- fitted_values(m_scam))
+})
+
+test_that("fitted values works for a ziplss model", {
+    expect_silent(fv <- fitted_values(m_ziplss))
+})
+
+test_that("fitted values works for a gaulss model", {
+    expect_silent(fv <- fitted_values(m_gaulss))
+})