R/nParam.R

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

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

maxLik documentation built on May 29, 2024, 2:32 a.m.