Сформировать повторяющуюся последовательность

Question

Мне нужно, чтобы создать вектор следующего формата с использованием R:

1:10, 1:10, 11:20, 11:20, ... 121:130, 121:130 

есть более простой способ, чем создание 12 векторов, а затем повторить каждый из них дважды?

Answer 1

Это то, что вы хотите?

unlist(lapply(rep(seq(1, 121, by=10), each=2), function(x) seq(x, x+9))) 

Answer 2

Я думаю, что это сделаете.

x <- ((0:12)*10)+1 
y <- x + 9 

repeatVectors <- function(x,y){ 
    rep(seq(x,y),2) 
} 

z <- mapply(repeatVectors, x,y) 
z <- as.vector(z) 

Answer 3

Также вы можете сделать:

rep(1:10, 26) + rep(seq(0,120,10), each=20) 

Answer 4

В качестве альтернативы, вы можете использовать комбинацию rep и outer, таких как:

c(outer(1:10,rep(0:12,each=2),function(x,y)10*y+x)) 

Answer 5

Другой способ:

x <- matrix(1:130, 10, 13) 
c(rbind(x, x)) 

---

Возможно более эффективная версия:

x <- 1:130 
dim(x) <- c(10,13) 
c(rbind(x, x)) 

Answer 6

Метод с использованием split является

unlist(rep(split(seq_len(130), rep(1:13, each=10)), each=2), use.names=FALSE)