Nothing
getCountsInWindow <-
function(events, startE, endE, windowSize=10000, sorted=FALSE) {
histBreaks = seq(from=startE, to=endE, by=windowSize)
if(tail(histBreaks, 1) != endE)
histBreaks = c(histBreaks, endE)
countsWindow = hist(events, breaks=histBreaks, right=FALSE, plot=FALSE)$counts
return(countsWindow)
}
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.