R/COR_AUX.R

In svyPVpack: A package for complex surveys including plausible values

########################################################################
# 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])}