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