R/wpct.r

In weights: Weighting and Weighted Statistics

wpct <- function(x, weight=NULL, na.rm=TRUE, ...){
  if(is.null(weight)){
    weight <- rep(1, length(x))
  }
  y <- wtd.table(x, weight, na.rm=na.rm, ...)$sum.of.weights/sum(wtd.table(x, weight, na.rm=na.rm, ...)$sum.of.weights)
  names(y) <- wtd.table(x, weight, na.rm=na.rm, ...)$x
  z <- as.vector(y)
  names(z) <- names(y)
  if(is.logical(x))
    z <- rev(z)
  z
}