# NOT RUN {
require(stats); require(graphics)
f <- bayesGAM(weight ~ np(height), data = women, family = gaussian,
iter = 500, chains = 1)
plot(fitted(f), women$weight, type='o', xlab="fitted", ylab="actual")
# }
Run the code above in your browser using DataLab