Усреднение каждые 3 строки для нескольких столбцов

Question

Мне интересно, есть ли способ получить среднее значение каждой n-й строки по длине столбца для последовательности векторов, использующих tidyverse или dplyr?

Ранее я нашел какой-то код с использованием циклов это может сделать это, но только для одного вектора за один раз. Есть ли способ сделать это для нескольких столбцов, без копирования и вставки? Предпочтительно использовать dplyr?

BinMean <- function (vec, every, na.rm = FALSE) { ### function to mean every 3
  n <- length(vec)
  x <- .colMeans(vec, every, n %/% every, na.rm)
  r <- n %% every
  if (r) x <- c(x, mean.default(vec[(n - r + 1):n],na.rm = na.rm))
  x
}

Я пытался обернуть эту функцию dplyr, но не могу использовать ее из-за структуры и / или полной плотности.

dat<-dat1%>%
mapply(BinMean,3)

Пожалуйста, помогите!