Przypuśćmy, że mamx = rnorm(100000) i zamiast robić1000 długość okna przesuwnego średnia ruchoma, chciałem zrobić1000 okno przesuwne długości, które liczy wszystkie razy, żex jest ponad0.2.

Na przykład,

x <- rnorm(1004)
start <- 1:1000
record <- list()
while(start[length(start)] <= length(x)) {
    record[[length(record) + 1]] <- length(which(x[start] > 0.2))/length(start)
    start <- start + 1
    print(record[[length(record)]]);flush.console()
}

To staje się nie do opanowania dla dużychlength(x). Jaka jest wysoce skuteczna metoda?