R/coefTable.R

In miscTools: Miscellaneous Tools and Utilities

coefTable <- function( coef, stdErr, df = NULL ) {
   result <- cbind(
      coef,
      stdErr,
      coef / stdErr,
      rep( NA, length( coef ) ) )
   if( !is.null( df ) ) {
      result[ , 4 ] <- 2 * pt( abs( coef / stdErr ), df, lower.tail = FALSE )
   }
   colnames( result ) <- c( "Estimate", "Std. Error", "t value", "Pr(>|t|)" )
   if( !is.null( names( coef ) ) ) {
      rownames( result ) <- names( coef )
   }
   return( result )
}