# NOT RUN {
loo1 <- loo(log_lik1)
loo2 <- loo(log_lik2)
print(compare(loo1, loo2), digits = 3)
print(compare(x = list(loo1, loo2)))
waic1 <- waic(log_lik1)
waic2 <- waic(log_lik2)
compare(waic1, waic2)
# }
# NOT RUN {
# }
Run the code above in your browser using DataCamp Workspace