R/nan2na.R

Defines functions `nan2na`

`nan2na` <-
function(x)
{
  if(!is.null(x))
  {
    result <- x
    result[!is.finite(result)] <- NA
  }
  else
    result <- NULL
  
  return(result)
}
aparamon/cmrutils documentation built on May 5, 2019, 6:54 p.m.