代表和/或seq函數創建連續減少向量？

Question

假設我有一個載體，從1到5，

a<-c(1:5) 

我需要做的是不斷地丟失一個元素重複向量。也就是說，最後的結果應該是這樣

1 2 3 4 5 1 2 3 4 1 2 3 1 2 1 

Answer 1

我們可以扭轉矢量和應用sequence

sequence(rev(a)) 
#[1] 1 2 3 4 5 1 2 3 4 1 2 3 1 2 1 

---

或者另一種選擇是toeplitz

m1 <- toeplitz(a) 
m1[lower.tri(m1, diag=TRUE)] 
#[1] 1 2 3 4 5 1 2 3 4 1 2 3 1 2 1