########################################################################
# COR AUX FUNCTIONS
########################################################################
cor.aux.func <- function(x, y, svydes){
withReplicates(svydes, function(w,data)
cov.wt(cbind(x, y),
wt=w, cor =TRUE)$cor[1,2])}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.