# NOT RUN {
# }
# NOT RUN {
# Generate some data
input.df <- data.frame(x = cos(1:10))
input.df <- within(
input.df,
y <- ceiling(5 + 2 * cos(1:10) + rnorm(10, mean = 0, sd = 0.1))
)
# Fit two models
fit <- bru(y ~ x, family = "gaussian", data = input.df)
fit2 <- bru(y ~ x, family = "Poisson", data = input.df)
# Compare DIC
deltaIC(fit, fit2)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab