limit.quantile <- function(data, limits) {
data[data == -Inf] <- 2*limits[1] - limits[2]
data[data == Inf] <- 2*limits[2] - limits[1]
data
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.