blue.red <- function (n)
{
n = n-2
if ((n <- as.integer(n[1])) > 0) {
even.n <- n%%2 == 0
green = 2/6
red = 0
blue = 4/6
alpha = 1.6
k <- n%/%2
l1 <- k + 1 - even.n
l2 <- n - k + even.n
c( if (l1 > 0) {
hsv( h = blue,
s = seq(1, ifelse(even.n, 1/k, 0), length = l1),
v = 1)
},
if (l2 > 1) {
hsv( h = red,
s = seq(0, 1, length = l2),
v = 1,
alpha=alpha)
}
)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.