R/print_digits.R

In alexanderrobitzsch/sirt: Supplementary Item Response Theory Models

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

print_digits <- function(x, digits=NULL)
{
    NC <- ncol(x)
    if (length(digits)==1){
        digits <- rep(digits, NC)
    }
    for (cc in 1:NC){
        y <- x[,cc]
        if (is.numeric(y)){
            x[,cc] <- round(y, digits=digits[cc])
        }
    }
    print(x)
    invisible(x)
}