R/SRM_SUMMARY_PRINT_OUTPUT.R

In srm: Structural Equation Modeling for the Social Relations Model

## File Name: SRM_SUMMARY_PRINT_OUTPUT.R
## File Version: 0.03

SRM_SUMMARY_PRINT_OUTPUT <- function(obji, round_from, round_to=NULL,
    digits=3)
{
    if (is.null(round_to)){
        round_to <- ncol(obji)
    }
    round_vars <- seq(round_from, round_to)
    obji[,round_vars] <- round( obji[,round_vars], digits)
    print(obji)
}