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