shift2gg<-function (ss, ns)
{
z <- c(0, ss, ns + 1)
cc <- cut(1:ns, breaks = z, right = FALSE)
gg <- as.numeric(cc)
return(gg)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.