if (FALSE) {
# Run two models and store results in "output1" and "output2"
output1 <- dd_hyperbolic("example", 2000, 1000, 3, 3)
output2 <- dd_exp("example", 2000, 1000, 3, 3)
# Show the LOOIC model fit estimates
printFit(output1, output2)
# To show the WAIC model fit estimates
printFit(output1, output2, ic = "waic")
# To show both LOOIC and WAIC
printFit(output1, output2, ic = "both")
}
Run the code above in your browser using DataLab