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;
        }
    }
    m = m+1
}