R/dropMatching.R

In elo2zero/oddsandsods: Miscellanous functions

#' Droping/subseting matching values from vectors
#'
#' @param x vector
#' @param match values which we want to drop from vector

dropMatching <- function(x, match, inverse=F){
  x <- x[!x %in% match]
  if(inverse)
    x <- x[x %in% match]

  return(x)
}