library(APCtools)
library(mgcv)
data(travel)
model <- gam(mainTrip_distance ~ te(age, period) + residence_region +
household_size + s(household_income), data = travel)
plot_1Dsmooth(model, select = 2)
Run the code above in your browser using DataLab