Add one test for plot(inter)

ModelOriented · Jul 1, 2023 · d8e409a · d8e409a
1 parent 9c55241
commit d8e409a
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/tests/testthat/test_interact.R b/tests/testthat/test_interact.R
@@ -41,6 +41,7 @@ test_that("Non-additive models show interactions > 0 (one interaction)", {
 
   expect_s3_class(H2_j(inter), "ggplot")
   expect_s3_class(H2_jk(inter), "ggplot")
+  expect_s3_class(plot(inter), "ggplot")
 })
 
 fit <- lm(