# NOT RUN {
## Simulate data.
set.seed(123)
d <- GAMart()
## Estimate model.
f <- num ~ s(x1) + s(x2) + s(x3) + s(lon,lat)
## Boosted model.
b <- boost2(f, data = d)
## Plot estimated effects.
plot(b)
# }
Run the code above in your browser using DataLab