File: posifybivden.R

package info (click to toggle)
r-cran-sparr 2.3-16-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 884 kB
  • sloc: makefile: 2
file content (6 lines) | stat: -rw-r--r-- 169 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
 
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)
}