w = [1.00, 0.75, 0.50, 0.25]

weighted_corr <- cov.wt(DF, wt = w, cor = TRUE)
 corr_matrix <- weighted_corr$cor