Binning numerics in R

mybins.R

mybins = function(x, numbreaks, weights, ordered=T) {
  if (missing(weights)) x.w = x
  else x.w = rep(x, times=weights)
  breaks = quantile(x.w, seq(0,1,length.out=numbreaks+1))
  bins = findInterval(x, breaks, rightmost.closed=T)
  bins.f = factor(bins, levels = 1:numbreaks, ordered=ordered)
  list(breaks = breaks, bins = bins.f, numbreaks = numbreaks, ordered = ordered)
}

mybins.assign = function(bins, newx) {
  factor(findInterval(newx, bins$breaks, rightmost.closed=T), 1:bins$numbreaks, ordered=bins$ordered)
}