1### Methods for accessing loglik value maximum likelihood estimates
2
3logLik.summary.maxLik <- function( object, ...) {
4   ll <- object$loglik
5   attr(ll, "df") <- sum(activePar(object))
6   ll
7}
8
9logLik.maxLik <- function( object, ...) {
10   ll <- maxValue(object)
11   attr(ll, "df") <- sum(activePar(object))
12   ll
13}
14