# NOT RUN {
set.seed(432)
f <- bayesGAM(weight ~ np(height), data = women,
family = gaussian, iter=500, chains = 1)
newheights <- with(women, rnorm(10, mean = mean(height)), sd=sd(height))
women2 <- data.frame(height=newheights)
pred <- predict(f, women2, draws=100)
# }
Run the code above in your browser using DataLab