R/div.prot.R

div.prot <- function(num, den) {
  res <- num / den
  res[is.infinite(res)] <- .Machine$double.xmax ^ (3/4)
  return(res)
}

Try the cwhmisc package in your browser

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

cwhmisc documentation built on May 1, 2019, 7:55 p.m.