op <- options(pillar.sigfig = 3, cli.unicode = FALSE)
load_mgcv()
df <- data_sim("eg1", seed = 2)
m <- gam(y ~ s(x0) + s(x1) + s(x2) + s(x3), data = df, method = "REML")
## IGNORE_RDIFF_BEGIN
smooth_coefs(m, term = "s(x2)")
## IGNORE_RDIFF_END
options(op)
Run the code above in your browser using DataLab