R 벡터에서 매 n값마다 평균 계산하기

tapply(a, rep(seq_along(a), each = n, length.out = length(a)), mean)