#' Remove outliers from numeric vector
#'
#' @param x Numeric vector
#' @param multiplier A numeric that is multiplied by inter-quantile range when determining uppermost and lowermost values beyond which datapoints are considered outliers.
#' @param na.rm Logical. Should missing values be removed
#' @export
removeOutliers = function(x,multiplier=1.5,na.rm=F){
if(na.rm){
x = x[!is.na(x)]
}
upperMost = unname(quantile(x,na.rm=T))[4] + multiplier*IQR(x,na.rm=T)
lowerMost = unname(quantile(x,na.rm=T))[2] - multiplier*IQR(x,na.rm=T)
return(x[x<=upperMost & x>=lowerMost])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.