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