R/vcov.intReg.R

vcov.intReg <- function( object, boundaries=FALSE, ... ) {
   ## vcov method.  By default, ignore the fixed boundaries.
   vc <- NextMethod("vcov", object, ...)
   if(!boundaries) {
      i <- rep(TRUE, nParam(object))
      i[object$param$index$boundary] <- FALSE
      vc <- vc[i,i]
   }
   class( vc) <- c( "vcov.intReg", class(vc) )
   return( vc )
}

Try the intReg package in your browser

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

intReg documentation built on May 2, 2019, 4:43 p.m.