load_mgcv()
# simulate data
df <- data_sim("eg4", n = 400, dist = "normal", scale = 2, seed = 1)
# fit model
m <- gam(y ~ fac + s(x2, by = fac) + s(x0),
data = df, method = "REML")
# return the names of terms in this model
model_terms(m)
Run the code above in your browser using DataLab