########################
## Benjamin Haibe-Kains
## All rights Reserved
## September 1, 2013
########################
`blueYellow` <-
function (n) {
x <- (1:n)-1
rgb(x, x, rev(x), maxColorValue=n)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.