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/R-ToolBox documentation built on May 8, 2024, 3:21 a.m.