# NOT RUN {
require(stats); require(graphics)
f <- bayesGAM(weight ~ np(height), data = women, family = gaussian,
iter = 500, chains = 1)
sres <- getStanResults(f)
plot(sres) # rstan method
# }
Run the code above in your browser using DataLab