R/scale01.R

In gravy: Gradient Analysis of Vegetation

"scale01" <-
    function (x, xrange) 
{
    if (missing(xrange)) {
        minx <- min(x)
        ranx <- max(x) - minx
    }
    else {
        minx <- xrange[1]
        ranx <- diff(xrange)
    }
    (x - minx)/ranx
}