cData <- function(data){
while(length(boxplot(data,plot = FALSE)$out) != 0){
for(i in seq_len(dim(data)[2])){
data[data[,i] %in% boxplot.stats(data[,i])$out,i] <- NA
}
}
return(data)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.