R/division00.R

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

Try the EL2Surv package in your browser

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

EL2Surv documentation built on May 1, 2019, 11:01 p.m.