R/tmle_bound.R

In ck37/varimpact: Variable Importance Estimation Using Targeted Causal Inference (TMLE)

# CK: copied from tmle package.
#---------- function .bound ---------------
# set outliers to min/max allowable values
# assumes x contains only numerical data
#-----------------------------------------
#' @export
.bound <- function(x, bounds) {
  x[x>max(bounds)] <- max(bounds)
  x[x<min(bounds)] <- min(bounds)
  return(x)
}