Nothing
# A function which consumes a zoo object where there are lots of events
# (as columns)
# The contents are all levels
# For each column, the event date value is set to 100 and all other
# values are scaled accordingly.
remap.event.reindex <- function(z) {
eventvals <- as.numeric(window(z, start=0, end=0))
for (i in 1:NCOL(z)) {
if(NCOL(z)==1){
z <- 100*z[,i]/eventvals[i]
} else {
z[,i] <- 100*z[,i]/eventvals[i]
}
}
z
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.