data(florentine)
y <- flomarriage
# Competing models:
formulae <- c(y ~ edges,
y ~ edges + kstar(2))
# Model selection via auto-RJ approximate exchange algorithm
flo <- bergmS(formulae,
iters=1500,
aux.iters=500,
main.iters=rep(100,2),
burn.in=rep(50,2),
gammas=c(1,1))
# MCMC diagnostics
flo.out <- bergmS.output(flo)
Run the code above in your browser using DataLab