log_lik1 <- extract_log_lik(stanfit1)
loo1 <- loo(log_lik1)
print(loo1, digits = 3)
log_lik2 <- extract_log_lik(stanfit2)
loo2 <- loo(log_lik2)
loo2
loo_diff <- compare(loo1, loo2)
loo_diff
print(loo_diff, digits = 5)
Run the code above in your browser using DataLab