Nothing
weighted.prho <- function(x, y, weights) {
mx <- stats::weighted.mean(x, weights)
my <- stats::weighted.mean(y, weights)
sx <- weighted.sd(x, weights)
sy <- weighted.sd(y, weights)
cov <- stats::weighted.mean((x-mx)*(y-my), weights)
prho <- cov / (sx*sy)
return(prho)
}
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.