R/dev2div.R

Defines functions dev2div

Documented in dev2div

dev2div <- function(x, n)  {
	if (class(x)[[1]]=="mdm") exp(x$deviance/2/nrow(x$fitted.values))
	else exp(x/2/n)
}

Try the MDM package in your browser

Any scripts or data that you put into this service are public.

MDM documentation built on May 30, 2017, 4:58 a.m.