Create weighted.cor.r