diff --git a/vignettes/modelbased.Rmd b/vignettes/modelbased.Rmd
index be62a7e2d..b71dba622 100644
--- a/vignettes/modelbased.Rmd
+++ b/vignettes/modelbased.Rmd
@@ -126,7 +126,7 @@ plot(result)
 model <- lm(Petal.Length ~ Species * poly(Sepal.Width, 3), data = iris)
 
 result <- estimate_slopes(model, at = c("Sepal.Width", "Species"))
-plot(result)
+suppressWarnings(plot(result))
 ```
 
 # Estimate derivatives