Generic function returning the deviance information criterion (DIC) of a fitted model object.

DIC(object, ...)

Arguments

object

A fitted model object for which there exists a DIC method.

...

Optionally more fitted model objects.

Examples

if (FALSE) d <- GAMart()
b1 <- bamlss(num ~ s(x1), data = d)
#> Error in eval(expr, envir, enclos): object 'd' not found
b2 <- bamlss(num ~ s(x1) + s(x2), data = d)
#> Error in eval(expr, envir, enclos): object 'd' not found
DIC(b1, b2)
#> Error in eval(expr, envir, enclos): object 'b1' not found