removePCR <- function(data = data){
if(length(data) > 1){
q_75 <- quantile(data, 0.75)
data[data > q_75] = round(q_75)
return(sum(data))
}
else{
return(1)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.