R/hz.R

hz <- function (x) 
{
    x[!is.finite(x)] <- 0
    if (all(x == 0)) 
        return(x)
    else x[x == 0] <- min(x[x > 0])/2
    log(x)
}
John-R-Wallace/JRWToolBox documentation built on April 20, 2024, 9:31 p.m.