gaussKernel <- function(x, mean, sd=100e3, wMin=0.3) {
w <- dnorm(x, mean=mean, sd=sd)
w <- w / max(w)
w[w < wMin] <- 0
w
} # gaussKernel()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.