R/addFixedPar.R

Defines functions addFixedPar

addFixedPar <- function( theta, start, fixed, ...) {
   if( is.null( fixed ) ) {
      start <- theta
   } else {
      start[ !fixed ] <- theta
   }

   return( start )
}

Try the maxLik package in your browser

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

maxLik documentation built on Nov. 25, 2020, 3 a.m.