Создать матрицу по слоистому массиву

Question

У меня есть массив чисел

x <- seq(1:10)

Я после матрицы с n строками. Вот пример с 3-строчной матрицей:

1   2   3  4  5  6  7  8  9  10
NA  1   2  3  4  5  6  7  8   9
NA  NA  1  2  3  4  5  6  7   8

Каков наилучший способ ее создания?

Answer 1

Существует странная маленькая функция с именем embed, которая будет это делать ...

t(embed(c(NA, NA, 1:10), 3))

     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,]    1    2    3    4    5    6    7    8    9    10
[2,]   NA    1    2    3    4    5    6    7    8     9
[3,]   NA   NA    1    2    3    4    5    6    7     8

Для вектора x и матрицы из n строк эквивалент будет

t(embed(c(rep(NA, n-1), x), n))

Answer 2

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

create_matrix <- function(x, n) {
   t(sapply(seq(n), function(m) c(rep(NA, m - 1), head(x, length(x) - m + 1))))
}

create_matrix(1:10, 3)

#     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
#[1,]    1    2    3    4    5    6    7    8    9    10
#[2,]   NA    1    2    3    4    5    6    7    8     9
#[3,]   NA   NA    1    2    3    4    5    6    7     8


create_matrix(c(4, 3, 6, 8, 7), 4)

#     [,1] [,2] [,3] [,4] [,5]
#[1,]    4    3    6    8    7
#[2,]   NA    4    3    6    8
#[3,]   NA   NA    4    3    6
#[4,]   NA   NA   NA    4    3