Create weighted.var.r