R/activePar.R

Defines functions activePar.default activePar

Documented in activePar activePar.default

## activePar: returns parameters which are free under maximisation (not fixed as constants)

activePar <- function(x, ...)
    UseMethod("activePar")

activePar.default <- function(x, ...) {
   if( !is.null( x$fixed ) ) {
      result <- !x$fixed
   } else {
      result <- x$activePar
   }
   if( is.null( result ) ) {
      result <- rep( TRUE, length( coef( x ) ) )
   }
   return( result )
}

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.