This is a copy of corr function from the boot package. It calculates the correlation coefficient in weighted form.
corr(d, w = rep(1, nrow(d))/nrow(d))a matrix with two columns corresponding to the two variables whose correlation we wish to calculate.
a vector of weights to be applied to each pair of observations. The default is equal weights for each pair. Normalization takes place within the function so sum(w) need not equal 1.
the correlation coefficient between d[,1] and d[,2].