R/panel.cor.R

In jpwrobinson/funk: James Robinson's functions, attributed where stolen

#' Pairs plots for correlations
#'
#' pairs2 creates Pearson correlations and scatterplots with LOESS for data diagnostics.
#' @param x is dataset containing y and all x covariates.
#' @keywords multimodel
#' @export
#' @examples
#' panel.cor

panel.cor <- function(x, y, digits=2, prefix="", cex.cor) 
{
    usr <- par("usr"); on.exit(par(usr)) 
    par(usr = c(0, 1, 0, 1)) 
    r <- abs(cor(x, y)) 
    txt <- format(c(r, 0.123456789), digits=digits)[1] 
    txt <- paste(prefix, txt, sep="") 
    if(missing(cex.cor)) cex <- 0.8/strwidth(txt) 
 
    test <- cor.test(x,y) 
    # # borrowed from printCoefmat
    # Signif <- symnum(test$p.value, corr = FALSE, na = FALSE, 
    #               cutpoints = c(0, 0.001, 0.01, 0.05, 0.1, 1),
    #               symbols = c("***", "**", "*", ".", " ")) 
 
    text(0.5, 0.5, txt, cex = cex * r) 
    # text(.8, .8, Signif, cex=cex, col=2) 
}