Create weighted.quantile.r

weighted general quantile function