R/summary.Brq.R

Defines functions summary.Brq

Documented in summary.Brq

summary.Brq <-
function(object, ...){
  
 CredInt=apply(object$beta,2,quantile,c(0.025,0.975))

  TAB <- cbind( Coefficient = coef(object),
                L.CredIntv =  CredInt[1,],
                U.CredIntv = CredInt[2,])
  
  colnames(TAB) <- c("Estimate",  "L.CredIntv",  "U.CredIntv")
  
  result <- list(call=object$call,tau=object$tau,coefficients=TAB)  
  class(result) <- "summary.Brq"
  result
}

Try the Brq package in your browser

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

Brq documentation built on May 2, 2019, 4:12 a.m.