weightmecov <-
function(data, weights, n, nvar) {
weightedcov <- cov.wt(x=data, wt=weights, center=T)
return(list(center=weightedcov$center, cov=weightedcov$cov*sum(weights)/(sum(weights)-1)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.