Nothing
setGeneric("cor.test")
setMethod("cor.test", "OPMS", function(x, y = NULL, method = "pearson",
use = "everything", subset = opm_opt("curve.param"), ...) {
x <- extract(object = x, subset = subset, dataframe = FALSE, ci = FALSE,
as.groups = NULL, as.labels = NULL, ...)
if (length(y))
y <- x[, y, drop = FALSE]
cor(x, y, use, method)
}, sealed = SEALED)
setMethod("cor.test", "MOPMX", function(x, ...) {
oapply(object = x, fun = cor.test, simplify = FALSE, ...)
}, sealed = SEALED)
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.