## File Name: summary_round_helper.R
## File Version: 0.101
summary_round_helper <- function( obji, digits, exclude=NULL, print=TRUE)
{
NC <- ncol(obji)
ind <- 1L: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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.