R/summary_round_helper.R

Defines functions summary_round_helper

## File Name: summary_round_helper.R
## File Version: 0.09

summary_round_helper <- function( obji, digits, exclude=NULL, print=TRUE)
{
    NC <- ncol(obji)
    ind <- 1:NC
    if ( ! is.null(exclude) ){
        ind2 <- which( colnames(obji) %in% exclude )
        ind <- setdiff( ind, ind2 )
    }
    obji[,ind] <- round( obji[,ind], digits )
    rownames(obji) <- NULL
    print(obji)
    invisible(obji)
}
alexanderrobitzsch/sirt documentation built on March 18, 2024, 1:29 p.m.