i <- 0
fn <- 0
m = 0 #пусть эта ерунда будет просто счетчиком
while (m < длина(S4a_20_2)) { #я просто хз как длину считать
    if (S4a_20_2$Fix == 1) {
        i <- i+1
        if (i == 50) {
            fn <- fn + 1
            #важно занулить счетчик единиц при нахождении кластера
            i = 0
        }
    }
    else
        i = 0

    m = m+1
}