Мне нужно сгенерировать последовательность на R, где разрыв между элементами увеличивается каждый раз

Последовательность 1:

1, 49, 100, 154, ... 19306

Последовательность 2:

48, 99, 153, 210, ..., 19650

Обратите внимание, что разрыв между элементами seq1 каждый раз увеличивается на 3. 49-1 = 48, 100-49 = 51, 154-100 = 54...

Разрыв между элементами Seq2 также увеличивается на 3 каждый раз, когда 99-48 = 51, 153-99 = 54

0
JC3019 19 Окт 2019 в 04:44
3
Используйте seq для создания вектора различий, а затем используйте его с cumsum
 – 
Dason
19 Окт 2019 в 04:47

1 ответ

Учитывая совет @Dason:

seq1 <- seq(48, 19306,3)
which(cumsum(seq1) ==19650)
seq2 <- cumsum(seq1)[1:100]

seq3 <- seq(47, 19306, 3)
seq4 <- seq2 -seq3[1:100]


0
JC3019 19 Окт 2019 в 05:09