R/factor.f.R

In John-R-Wallace/R-ToolBox: What the package does (short line)

factor.f <- function (x, by = NULL, breaks, labels = levels(tmp), include.lowest = FALSE, right = TRUE, verbose = FALSE) 
{
    if (!is.null(by)) {
        FLOOR <- floor.f(min(x, na.rm = T), by)
        CEILING <- ceiling.f(max(x, na.rm = T), by)
        breaks <- seq(FLOOR, CEILING, by = by)
        MID <- seq(FLOOR + by/2, CEILING, by = by)
        x <- c(MID, x)
    }
    tmp <- cut(c(diff(breaks), x), breaks = breaks, include.lowest = include.lowest, right = right)
    if (verbose) {
        cat("\n")
        printf(breaks)
        printf(levels(tmp))
        cat("\n")
    }
    out <- factor(tmp, labels = labels)
    out <- out[-(1:length(diff(breaks)))]
    if (verbose) {
        catf("\n")
        printf(aggregate(list(x = x), list(x.factor = out), len))
        catf("\n")
        plot(x ~ out, xlab = "Factor", ylab = "Input")
    }
    if (!is.null(by)) 
        out[-(1:length(MID))]
    else out
}