R/division00.R

Defines functions division00

division00 <- function(x, y) {
    out <- x/y
    out[as.logical((x == 0)*(x == y))] <- 1
    return (out)
}

Try the survELtest package in your browser

Any scripts or data that you put into this service are public.

survELtest documentation built on Jan. 14, 2020, 1:07 a.m.