Nothing
# ========================================================================
# cor - correlation function
# ========================================================================
#' @importFrom stats cor
#' @rdname distrib_rv
cor.rv <- function(x, y=NULL, ...) {
if (!is.matrix(x)) {
if (is.null(y)) {
stop("supply both x and y or a matrix-like x")
}
x <- as.vector(x)
}
if (is.rvobj(x) || is.rvobj(y)) {
rvmapply(cor, x=x, y=y, ...)
} else {
cor(x=x, y=y, ...)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.