R/my.cut.r

In HervePerdry/M1SP: Examples for the Master 1 de Santé Publique

my.cut <- function(x, lo = min(x), hi = max(x), n) {
  wi <- (hi - lo)/(n-1)
  lo <- lo - wi/2
  hi <- hi + wi/2
  x <- x[ which(lo <= x & x <= hi) ]
  cut(x, breaks = seq(lo, hi, by = wi), include.lowest = TRUE)
}