R/print.sepmod.R

In divoRce: Diagnosing Separation Phenomena in Latent Polyhedral Categorical Response Models

#' Print method for sepmod classes
#'
#' @param x object of class sepmod
#' @param info how much info is printed. Possibilities are 'minimal' (default) and 'full'.
#' @param ... additional arguments
#' @return No return value, called for side effects. Returns the input 
#'   object 'x' invisibly.
#' @export
print.sepmod <- function(x, info = c("minimal","full"),...)
{
     obj <- x
     if(missing(info)) info <- "minimal"   
     cat("Separation Check for Model:","\n")
     print(obj$modelcall)
     cat("Check Family:", switch(obj$modelclass,
                                b = "Binary Model",
                                bcl = "Baseline-Category Link Model",
                                cl = "Cumulative Link Model",
                                acl = "Adjacent-Category Link Model",
                                sl = "Sequential Link Model",
                                os = "Ordered Stereotype Model",
                                strucvec= "Structure Vectors")
       , "\n")
     cat("\n")
     cat("Separation:", obj$separation, "\n")
     cat("Separation Type:", obj$septype,"\n")
     if(info=="full")
     {
     cat("\n")    
     cat("Dimension of Recession Cone:", obj$reccdim,"\n")
     cat("Number of Offending Columns:", length(obj$offcols),"\n")
     cat("Number of Offending Rows:", obj$nr.offrows,"\n")
     }
     invisible(x)
}

#' Print method for sepmod_sl classes
#'
#' @param x object of class sepmod_sl
#' @param info how much info is printed. Possibilities are 'minimal' (default) and 'full'.
#' @param ... additional arguments
#' @return No return value, called for side effects. Returns the input 
#'   object 'x' invisibly.
#' @export
print.sepmod_sl<- function(x, info = c("minimal","full"),...)
{
     obj <- x
     if(missing(info)) info <- "minimal"
     cat("Separation Check for Model:","\n")
     print(obj[[1]]$modelcall)
     cat("Check Family: Sequential Link Model","\n")
     cat("\n")
     for(i in 1:(length(obj))){
     #cat(rep("-",30),"\n")
     cat("\n")        
     cat("CATEGORY ",names(obj)[i],"\n")  
     cat("Separation:", obj[[i]]$separation, "\n")
     cat("Separation Type:", obj[[i]]$septype,"\n")
     if(info=="full")
     {
     cat("\n")        
     cat("Dimension of Recession Cone:", obj[[i]]$reccdim,"\n")
     cat("Number of Offending Columns:", length(obj[[i]]$offcols),"\n")
     cat("Number of Offending Rows:", obj[[i]]$nr.offrows,"\n")
     }    
     }
    invisible(x)
}