seq
не векторизовано. Вы можете использовать один из циклов, чтобы получить то же поведение.
Например, с mapply
x <- c(1,1,1)
c(t(mapply(seq, x, 3)))
#[1] 1 1 1 2 2 2 3 3 3
Если вы хотите, чтобы каждая последовательность шла до length(x)
, используйте ее вместо жесткого кода 3.
Кроме того, если ваш x
всегда будет начинаться с 1, как показано в примере, вы можете использовать rep
и sequence
sort(sequence(rep(length(x), length(x))))
#[1] 1 1 1 2 2 2 3 3 3