load_mgcv()
# \dontshow{
op <- options(cli.unicode = FALSE, pillar.sigfig = 2)
# }
dat <- data_sim("eg1", n = 500, dist = "normal", scale = 1, seed = 2)
m1 <- gam(y ~ s(x0) + s(x1) + s(x2) + s(x3), data = dat, method = "REML")
evaluate_smooth(m1, "s(x1)")
## 2d example
dat <- data_sim("eg2", n = 1000, dist = "normal", scale = 1, seed = 2)
m2 <- gam(y ~ s(x, z, k = 30), data = dat, method = "REML")
evaluate_smooth(m2, "s(x,z)", n = 50)
options(op)
Run the code above in your browser using DataLab