Fix for slidingIRanges function

[AxelRosendahlHuber]

See the Biostars thread at: https://support.bioconductor.org/p/9140415
I have checked the fix proposed by story.benjamin and this fixes the behaviour of the function and would propose a fix

Correct function below: (which changes seq(1L, len - width , by = shift) for seq(1L, len - width + 1 , by = shift)

slidingIRanges <- function (len, width, shift = 1L)  {
  start <- seq(1L, len - width + 1 , by = shift)
  end <- seq(width, len, by = shift)
  IRanges(start, end)
}