R/print.R

Defines functions print.GEM

Documented in print.GEM

#' @title S3 method: print for class "GEM"
#' @description S3 method print for objects of class \code{\link{GEM}}. 
#' @aliases print.GEM
#' @method print GEM
#' @param x An object of class \code{\link{GEM}}
#' @param ...  Other arguments
#' @export 
#' @return Brief summary results of the fitting procedure, including parameter estimates, their standard errors and 
#' the executed call.
#' @import methods
#' @rdname print.GEM
#' @keywords package



print.GEM<-function(x,...){
  
  
  arguments<-list(...)
  
  digits<-arguments$digits
  
  if (is.null(digits)){
    digits<-options()$digits
  }
  
  if(!is.null(cl <- x$call)){
    cat("Call:\n")
    dput(cl, control = NULL)
  }
  
  sterr<-as.numeric(round(sqrt(diag(vcov(x))),digits=digits))
  
  mat<-cbind(round(x$estimates,digits=digits),sterr)
  rownames(mat)<-parnames(x)
  colnames(mat)<-c("Estimates","Standard Errors")
  
  object<-x$object
  family<-object$family
  stime<-object$estimates
    cat("","\n")
 print(mat)
#   cat("Coefficients:","\n")
#   print(coef(x,digits=digits))
  cat("","\n")
  cat("Maximized Log-Likelihood:",logLik(x,digits=digits),"\n")
  
  invisible(x)
}

Try the CUB package in your browser

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

CUB documentation built on March 31, 2020, 5:14 p.m.