Defines functions manual_bin

#' Binning by the cut points
#' The function \code{manual_bin} discretizes the x vector and summarizes over 
#' the y vector based on the discretization result. It is an utility function
#' and is not supposed to be called directly by the user.
#' @param x   A numeric vector.
#' @param y   A numeric vector with 0/1 binary values.
#' @param cut A numeric vector of cut points for discretize x.
#' @return A data frame to summarize the binning outcome
#' @noRd

manual_bin <- function(x, y, cut) {
  d1 <- data.frame(x = x, y = y, cut = findInterval(x, sort(c(cut, -Inf, Inf)), left.open = T))

           lapply(split(d1, d1$cut), 
                    data.frame(bin  = x$cut[1],
                               freq = nrow(x),
                               miss = 0,
                               bads = sum(x$y),
                               minx = min(x$x),
                               maxx = max(x$x)))))

Try the mob package in your browser

Any scripts or data that you put into this service are public.

mob documentation built on July 31, 2021, 9:06 a.m.