The R Project SVN R

(root)/branches/R-Tk/src/library/base/R/cor.R – Rev 9011

Rev 2107 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

cor <- function (x, y=NULL, use="all.obs")
{
    na.method <- pmatch(use, c("all.obs", "complete.obs", "pairwise.complete.obs"))
    if(is.data.frame(x)) x <- as.matrix(x)
    if(is.data.frame(y)) y <- as.matrix(y)
    .Internal(cor(x, y, na.method))
}