Jagged to monotonic time series

as_monotonic.R

as.monotonic <- function(x) {
  while(sum(diff(x)<0)) {
    lastMonotonic <- which(diff(x)<0)
    firstNonMonotonic <- lastMonotonic[1] + 1
    # which chunk of the time series needs to be adjusted up
    lastNonMonotonic <- ifelse(length(lastMonotonic)>1, lastMonotonic[2], length(x))
    monotonicRange <- firstNonMonotonic:lastNonMonotonic
    # add last monotonic value to nonmonotonic chunk
    x[monotonicRange] <- x[monotonicRange] + x[lastMonotonic[1]]
  }
  x
}