Haces un vector dummy de 9 valores y quires sacar el promedio cada 3 valores.a<-c(1,1,1,2,2,2,3,3,3)
Si usas tapply, puedes usar algo así donde le dices el número de valores en la secuencia de tu vector. En este caso le estoy diciendo que haga un promedio cada tres valores.b<-tapply(a, rep(seq_along(a), each = 3, length.out = length(a)), mean)
El resultado es una matrix pero lo puede hacer data frame si quieresb2<-as.data.frame(b)
Para automatizarlo, al inicio del script podrías hacer unas “Initial conditions section” Que diga.
#Número de días que quiero agrupardias<-3
Y luego ya puedes correr tu código substituyendo el 3 con “dias”. Por ejemplo:
b<-tapply(a, rep(seq_along(a), each = dias, length.out = length(a)), mean)