AS
Size: a a a
AS
AM
ДВ
ДВ
AS
AS
AM
AM
AS
Е
AS
Е
AS
Е
К
К
IY
statistic <- numeric()
for(i in 1:(length(breaks) - 1)) {
substat.lengths <- lengths[(breaks[i] + 1):(breaks[i + 1] - 1)]
substat.values <- values[(breaks[i] + 1):(breaks[i + 1] - 1)]
statistic[i] <- sum(substat.lengths[substat.values == -1]) - sum(substat.lengths[substat.values == 1])
}
IY