Предположим, у меня естьx = rnorm(100000) и вместо того, чтобы делать1000 Длина скользящего окна скользящей средней, я хотел сделать1000 длина скользящего окна, которое считает всеx выше0.2.

Например,

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()
}

Это становится неуправляемым для большогоlength(x), Что такое высокоэффективный метод?