Как добавить последовательность чисел вокруг каждого значения в векторе

Question

У меня есть вектор чисел:

vec <- c(50, 75, 100, 125, 150, 200, 250, 300, 350, 400, 450, 475, 500, 550, 600, 650, 700, 750, 800, 850, 900, 950, 1000)

Я хотел бы добавить 10 чисел вверху и 10 чисел под каждым значением. Например, для 50 вы должны добавить 40 до 49 и от 51 до 60.

Любая помощь очень ценится!

Answer 1

Использование sapply:

c(sapply(vec, `+`, -10:10))

Если числа перекрываются, вы можете добавить unique к приведенному выше выводу, чтобы получить только уникальные значения.

Answer 2

Мы можем использовать outer из base R

c(outer(-10:10, vec, `+`))