R/immer_summary_print_mcmc_output.R

Defines functions immer_summary_print_mcmc_output

## File Name: immer_summary_print_mcmc_output.R
## File Version: 0.04

immer_summary_print_mcmc_output <- function(object, digits)
{
    summ <- object$summary.mcmcobj
    obji <- summ[, c("parameter", "Mean", "MAP", "SD", "Q2.5", "Q97.5" ) ]
    # obji$MCMC_SE <- summ$Time.series.SE
    vars <- c("Rhat","effSize" )
    for (vv in vars ){
        obji[,vv] <- summ[,vv]
    }
    obji$effSize <- round(obji$effSize, 0 )
    sirt::sirt_summary_print_objects(obji=obji, from=2, digits=digits, rownames_null=TRUE)
}

Try the immer package in your browser

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

immer documentation built on Aug. 22, 2022, 5:05 p.m.