Each interval is divided by its width, so windows of different size stay comparable.
Usage
accDeviationScore(data, breaks = c(-250, -200, -25, 25, 200, 250))Examples
prof <- data.table::data.table(x = -250:250, avg_ins = 1)
accDeviationScore(prof)
#> [1] 1