# 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.