#######################################
##### set negative values to zero #####
pos <- function(x){
x[x < 0] <- 0
x
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.