## 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.