R/finiterange.R

finiterange <- function (x) ## NOEXPORT
{
  x <- x[! is.na(x)]
  x <- x[is.finite(x)]
  if (length(x)==0) {
    return(c(NA, NA))
  }
  range(x)  
}

Try the rv package in your browser

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

rv documentation built on March 18, 2022, 5:55 p.m.