Мы можем split
в list
lst1 <- lapply(split(seq_len(nrow(m1)),
as.integer(gl(nrow(m1), 6, nrow(m1)))), function(i) c(m1[i,]))
, а затем rbind
в новую матрицу
m2 <- do.call(rbind, lst1)
dim(m2)
[1] 44 1584
data
set.seed(24)
m1 <- matrix(rnorm(264 * 264), nrow = 264)