data(georgia)
fit <- stan_glm(log(rate.male) ~ 1, data = georgia,
iter=600, chains = 2, quiet = TRUE)
fit2 <- stan_glm(log(rate.male) ~ log(income), data = georgia,
centerx = TRUE, iter=600, chains = 2, quiet = TRUE)
dic(fit)
dic(fit2)
waic(fit)
waic(fit2)
Run the code above in your browser using DataLab