R/Infix_Functions.R

In Ehsan-F/R-Mixtape: Mixtape: Enhancing the model making process

`%>=<%` <- function(x, range) {
  range <- sort(range)
  x >= range[1] & x <= range[length(range)]
}

#----------------------------------------------------------------------------------------------------#

`%>= <%` <- function(x, range) {
  range <- sort(range)
  x >= range[1] & x < range[length(range)]
}

#----------------------------------------------------------------------------------------------------#

`%> =<%` <- function(x, range) {
  range <- sort(range)
  x > range[1] & x <= range[length(range)]
}

#----------------------------------------------------------------------------------------------------#

`%limit%` <- function(x, range) {
  range <- sort(range)
  r1 <- range[1]
  rn <- range[length(range)]
  
  ifelse(x <= r1, r1,
         ifelse(x >= rn, rn,
                x))
}

#----------------------------------------------------------------------------------------------------#

`%bracket_max%` <- function(x, range) {
  range <- sort(range)
  for (i in 1:length(range)) {
    if (x <= range[i]) {
      return(range[i])
    }
  }
}

#----------------------------------------------------------------------------------------------------#

`%bracket_min%` <- function(x, range) {
  range <- sort(range, decreasing = T)
  for (i in 1:length(range)) {
    if (x >= range[i]) {
      return(range[i])
    }
  }
}