Создать вектор из определенной последовательности интервалов

Question

У меня есть 20 интервалов:

10 интервалов от 1 до 250 размера 25:

[1.25] [26.50] [51.75] [76.100] [101.125] [126.150] ... [226.250]

10 интервалов от 251 до 1000 размера 75:

[251,325] [326,400] [401,475] [476,550] [551,625] ... [926,1000]

Я хотел бы создать вектор, состоящий из первых 5 элементов каждого интервала, например:

(1,2,3,5, 26,27,28,29,30, 51,52,53,54,55, 76,77,78,79,80, ...., 
251,252,253,254,255, 326,327,328,329,330, ...)

Как создать этот вектор, используя R?

Answer 1

Предположим, у вас есть два интервала, например:

interval1 <- seq(1.25, 226.250, 25)
interval2 <- seq(251, 1000, 75)

Мы можем создать новый интервал, комбинируя два, а затем использовать mapply для создания последовательности

new_interval <- c(as.integer(interval1), interval2)
c(mapply(`:`, new_interval, new_interval + 4))
 #[1]   1   2   3   4   5  26  27  28  29  30  51  52  53  54 .....
 #[89] ..... 779 780 851 852 853 854 855 926 927 928 929 930