R/bic.loss.R

In lqa: Penalized Likelihood Inference for GLMs

Defines functions bic.loss

Documented in bic.loss

bic.loss <-
function (pred.obj)
{
   dev <- pred.obj$deviance
   tr.H <- pred.obj$tr.H
   nobs <- pred.obj$n.newobs

   dev + log (nobs) * tr.H
}

Try the lqa package in your browser