simplify example in draw.gam

gavinsimpson · Jan 23, 2021 · 1aa7c50 · 1aa7c50
1 parent 7071cf8
commit 1aa7c50
Show file tree

Hide file tree

Showing 3 changed files with 18 additions and 24 deletions.
diff --git a/R/draw-methods.R b/R/draw-methods.R
@@ -343,13 +343,11 @@
 ##' m2 <- gam(y ~ s(x, z, k = 40), data = dat$data, method = "REML")
 ##' draw(m2, contour = FALSE)
 ##'
-##' ## change the number of contours drawn
-##' draw(m2, n_contour = 5)
-##'
-##' ## change the fill scale used for the surface
-##' draw(m2,
-##'     continuous_fill = ggplot2::scale_fill_distiller(palette = "Spectral",
-##'                                                     type = "div"))
+##' ## change the number of contours drawn and the fill scale used for
+##' ## the surface
+##' draw(m2, n_contour = 5,
+##'      continuous_fill = ggplot2::scale_fill_distiller(palette = "Spectral",
+##'                                                      type = "div"))
 `draw.gam` <- function(object,
                        parametric = NULL,
                        select = NULL,

diff --git a/man/draw.gam.Rd b/man/draw.gam.Rd
diff --git a/tests/Examples/gratia-Ex.Rout.save b/tests/Examples/gratia-Ex.Rout.save
@@ -638,13 +638,11 @@ Bivariate smoothing example
 > m2 <- gam(y ~ s(x, z, k = 40), data = dat$data, method = "REML")
 > draw(m2, contour = FALSE)
 > 
-> ## change the number of contours drawn
-> draw(m2, n_contour = 5)
-> 
-> ## change the fill scale used for the surface
-> draw(m2,
-+     continuous_fill = ggplot2::scale_fill_distiller(palette = "Spectral",
-+                                                     type = "div"))
+> ## change the number of contours drawn and the fill scale used for
+> ## the surface
+> draw(m2, n_contour = 5,
++      continuous_fill = ggplot2::scale_fill_distiller(palette = "Spectral",
++                                                      type = "div"))
 > 
 > 
 > 
@@ -958,11 +956,11 @@ pmax(exp(eta), .Machine$double.eps)
 > link(mod, parameter = "scale")
 function (mu) 
 log(1/mu - 0.01)
-<environment: 0x55981f09f640>
+<environment: 0x56321bc18a08>
 > inv_link(mod, parameter = "scale")
 function (eta) 
 1/(exp(eta) + 0.01)
-<environment: 0x55981f09f640>
+<environment: 0x56321bc18a08>
 > 
 > 
 > 
@@ -1486,7 +1484,7 @@ detaching ‘package:mgcv’
 > cleanEx()
 > options(digits = 7L)
 > base::cat("Time elapsed: ", proc.time() - base::get("ptime", pos = 'CheckExEnv'),"\n")
-Time elapsed:  11.677 0.138 11.819 0.001 0.002 
+Time elapsed:  11.46 0.127 11.561 0.001 0.002 
 > grDevices::dev.off()
 null device 
           1