R/fit_mdmb_distribution_summary.R

In mdmb: Model Based Treatment of Missing Data

## File Name: fit_mdmb_distribution_summary.R
## File Version: 0.29


#*******************************************************
# Summary for logistic_regression object
fit_mdmb_distribution_summary <- function( object, digits=4, file=NULL, ...)
{

    type <- object$type

    # open sink
    CDM::osink( file=file, suffix=paste0( "__SUMMARY.Rout") )

    cat("-----------------------------------------------------------------\n")
    # package and R session
    mdmb_summary_print_model_description(object=object, pack="mdmb")

    cat( object$description, "\n\n")

    cat("-----------------------------------------------------------------\n")
    cat( "Number of observations","=", object$N, "\n" )
    cat( "Number of estimated parameters","=", object$np, "\n" )
    cat( "Deviance","=", round( object$deviance, 2 ), "\n" )
    cat( "Log likelihood","=", round( object$loglike, 2 ), "\n" )

    cat("-----------------------------------------------------------------\n")
    cat("Estimated Parameters\n")

    obji <- object$partable
    CDM::cdm_print_summary_data_frame(obji, digits=digits, from=2)

    # close sink
    CDM::csink( file=file )
}
#*******************************************************