library(lubridate)
get.group.N.min <- function(time,N) {
mins.since.midnight <- 60*hour(time) + minute(time)
return(round(mins.since.midnight/N))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.