Применить функцию по последовательным группам в векторе

Question

Я хочу рассчитать меру из трех последовательных переменных вектор.

Ex: Vec < -rep (1:10)

Я хотел бы выход быть как на скриншоте ниже:

Answer 1

Вы можете создать следующую функцию для расчета средств по группам 3 (или любое другое количество):

f <- function(x, k=3) 
    { 
     for(i in seq(k,length(x),k)) 
     x[(i/k)] <- mean(x[(i-k+1):i]) 
     return(x[1:(length(x)/k)]) 
    } 

е (1:15) [1] 2 5 8 11 14

Answer 2

Мы можем создать группировку переменной с помощью gl, а затем получить mean с ave

ave(Vec, as.numeric(gl(length(Vec), 3, length(Vec))))