R/print.predict.wa.R

In gavinsimpson/analogue: Analogue and Weighted Averaging Methods for Palaeoecology

`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)
}