## calculate breaks in the middle between consecutive vector elements
midbrk <- function(v) { v[2:length(v)]-0.5*diff(v) }
if (FALSE)
{
# usage example
midbrk(1:10)
midbrk(2*(1:10))
midbrk(sort(unique(weatherr$temperature)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.