R/setValueLimit.R

In johnypark/divsptise: DIVerse SPecies TIme SEries r package

#' Function for correcting values out of range
#' @export
#'
setValueLimit<-function(array, lowerlimit, upperlimit){
  array[array>upperlimit]=upperlimit
  array[array<lowerlimit]=lowerlimit

  return(array)
}