R/maxFixNA.R

In lozalojo/mem: The Moving Epidemic Method

#' max function, removing Inf and -Inf
#'
#' @keywords internal
maxFixNA <- function(minputdata) {
  minputdata[minputdata == Inf] <- NA
  minputdata[minputdata == -Inf] <- NA
  if (sum(!is.na(minputdata)) == 0) {
    return(NA)
  } else {
    return(max(minputdata, na.rm = T))
  }
}