R：编写一个快速函数来为加权数据集构建 CDF

如何解决R：编写一个快速函数来为加权数据集构建 CDF

我有一个加权数据集，我正在尝试在 R 中编写一个基本的累积分布函数，它的工作原理是将加权数据分成大小相等的 bin。我找不到有效执行此操作的 R 命令，因此我编写了此函数：

cdf <- function(x,wt){
  array <- rep(x,wt)
  l = round(length(array)/100) # grouping into percentiles
  c = unname(tapply(array,(seq_along(array)-1) %/% l,sum))
  pdf = unname(tapply(array,max))
  # for uneven group sizes - adding more entries last bin
  if(length(c)>100) { 
    c[100] = sum(c[c(100,101)])
    pdf[100] = max(pdf[c(100,101)])
  }
  cdf = cumsum(as.numeric(c[1:100]))
  pdf = pdf[1:100]
  return(list(cdf = cdf,pdf = pdf))
}

这行得通，但确实很慢。有什么建议可以加快速度吗？