Nothing
#------------------------------------------------------------------------------
# print and summary S3 methods for nice printing of pooled CV
#
# Author: dlabes
#------------------------------------------------------------------------------
print.CVp <- function(x, digits = 4, verbose=FALSE, ...)
{
if (verbose){
cat("Pooled CV = ",format(x$CV,digits=digits),
" with ", x$df, " degrees of freedom", sep="")
if (!is.null(x$robust)) {if (x$robust) cat(" (robust df's)")}
cat("\n")
cat("Upper ",(1-x$alpha)*100,"% confidence limit of CV = ",
format(x$CVupper, digits=digits),"\n",sep="")
} else {
cat(format(x$CV,digits=digits), " with ", x$df,
" degrees of freedom", sep="")
if (!is.null(x$robust)) {if (x$robust) cat(" (robust df's)")}
cat("\n")
}
invisible(x)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.