log_lik1 <- extract_log_lik(stanfit1)
waic1 <- waic(log_lik1)
waic1
log_lik2 <- extract_log_lik(stanfit2)
waic2 <- waic(log_lik2)
print(waic2, digits = 4)
waic_diff <- compare(waic1, waic2)
print(waic_diff, digits = 2)
Run the code above in your browser using DataLab