цикл с престановкой последнего элемента на первое место с итерациями до длины вектора?
roll <- function(x, i = 1) { n <- length(x) x[(seq_len(n) + i - 1) %% n] } > x <- 1:5 > roll(x, 2) [1] 2 3 4 1 > roll(x, 3) [1] 3 4 1 2 > roll(x, 7) [1] 2 3 4 1
Обсуждают сегодня