Nothing
`print.predict.wa` <- function(x, ...) {
## calculations/manipulations
## performance summary
s <- strsplit(x$deshrink, " ")[[1]]
deshrink <- paste(toupper(substring(s, 1,1)), substring(s, 2),
sep="", collapse=" ")
CV <- x$CV.method
## printing
cat("\n")
writeLines(strwrap("Weighted Averaging Predictions", prefix = "\t"))
cat("\nCall:\n")
cat(paste(deparse(x$call), "\n\n"))
cat(paste("Deshrinking :", deshrink, "\n"))
cat(paste("Crossvalidation :", CV, "\n"))
cat(paste("Tolerance DW :",
ifelse(x$tol.dw, "Yes", "No"), "\n"))
#cat(paste("No. samples :", x$n.samp, "\n"))
#cat(paste("No. species :", x$n.spp, "\n\n"))
if(!is.null(x$performance)) {
perf <- performance(x)
perf.names <- names(perf)
attributes(perf) <- NULL
names(perf) <- perf.names
cat("\nPerformance:\n")
print.default(round(perf, 4), print.gap = 2, ...)
}
cat("\nPredictions:\n")
print.default(round(x$pred$pred, 4), print.gap = 1, ...)
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.