R/print.object.summary.R

In BIFIEsurvey: Tools for Survey Statistics in Educational Assessment

## File Name: print.object.summary.R
## File Version: 0.13

print.object.summary <- function( obji, digits )
{
    V <- ncol(obji)
    for (vv in 1L:V){
        if ( is.numeric( obji[,vv] ) ){
            obji[,vv] <- round( obji[,vv], digits=digits )
        }
    }
    print( format(obji, scientific=FALSE), digits=digits )
}