R/shift2gg.R

shift2gg<-function (ss, ns) 
{
  z <- c(0, ss, ns + 1)
  cc <- cut(1:ns, breaks = z, right = FALSE)
  gg <- as.numeric(cc)
  return(gg)
}

Try the evoTS package in your browser

Any scripts or data that you put into this service are public.

evoTS documentation built on June 22, 2024, 9:23 a.m.