R/plotutil.R

Defines functions sep

# position of separators
sep <- function(x)
{
  y <- cumsum(rle(as.character(x))$lengths)
  y[-length(y)] + 0.5
}
pwirapati/acdx documentation built on Jan. 11, 2021, 12:31 a.m.