R/summary.intReg.R

summary.intReg <- function(object, boundaries=FALSE, ...) {
   s <- NextMethod("summary", object, ...)
   estimate <- coefTable(coef(object, boundaries=boundaries),
                         stdEr(object, boundaries=boundaries),
                         object$param$df)
   s$estimate <- estimate
   s$param <- object$param
                           # supply the additional parameters
   class(s) <- c("summary.intReg", class(s))
   return(s)
}
   

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.