R/posifybivden.R

In tilmandavies/sparr: Spatial and Spatiotemporal Relative Risk

Defines functions posifybivden

Documented in posifybivden

posifybivden <- function(x, eps=.Machine$double.xmin) {
  force(eps)
  if(is.im(x)) return(eval.im(pmax(eps, x)))
  if(is.numeric(x)) return(pmax(eps, x))
  return(x)
}