R/nParam.R

In maxLik: Maximum Likelihood Estimation and Related Tools

Defines functions nParam.maxim

Documented in nParam.maxim

## Return the #of parameters of model
nParam.maxim <- function(x, free=FALSE, ...) {
   if(!inherits(x, "maxim")) {
      stop("'nParam.maxim' called on non-'maxim' object")
   }
   if(free)
       sum( activePar( x ) )
   else
       length( x$estimate )
}

Try the maxLik package in your browser