Nothing
gauss.cor <- function (x, y)
{
if (!is.vector(x) || !is.vector(y) || length(x) != length(y))
stop("'x' and 'y' must be vectors with the same length")
cor(qnorm(rank(x) / (length(x) + 1)), qnorm(rank(y) / (length(y) + 1)),
method="pearson")
}
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.