powered by
splitFarNeighbour(intStart = NULL, intEnd = NULL, xPos = NULL, xRange = NULL, maxgap = Inf, minrun = 1)
set.seed(123) pos<-cumsum(rnbinom(20, size=10, prob=0.01)) splitFarNeighbour(intStart=c(1, 10), intEnd=c(6, 18), xPos=pos, maxgap=1000)
Run the code above in your browser using DataLab