R/division00.R

Defines functions division00

division00 <- function(x, y) {
    out <- x/y
    out[as.logical((x == 0)*(x == y))] <- 1
    return (out)
}
news11/survELtest documentation built on Jan. 21, 2020, 11:49 p.m.