对于给定向量的每个元素,生成具有 X, X-1, ..., X-(N-1) 的序列
For each element of given vector, generate sequence with X, X-1, ..., X-(N-1)
所以我在创建计数器时遇到了麻烦,希望大家能够提供帮助。假设我有一个向量
x <- c(40,10,60)
所需的输出将是一个 3 x n 的新矩阵,每一行都是一个看起来像这样的新日期..
40 39 38 37 36 35 34 33 32 31 30...
10 9 8 7 6 5 4 3 2 1 0 0 0
60 59 58 57 56 55 54 53 52 51 50
我想要的是该行从前一个条目中减去一个 n 号
次。我该怎么做呢?
非常感谢任何帮助。
> n = 12 # or whatever you want
> t(sapply(c(40,10,60), function(x) pmax(seq(x, (x-n+1), -1), 0) ))
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13]
[1,] 40 39 38 37 36 35 34 33 32 31 30 29 28
[2,] 10 9 8 7 6 5 4 3 2 1 0 0 0
[3,] 60 59 58 57 56 55 54 53 52 51 50 49 48
所以我在创建计数器时遇到了麻烦,希望大家能够提供帮助。假设我有一个向量
x <- c(40,10,60)
所需的输出将是一个 3 x n 的新矩阵,每一行都是一个看起来像这样的新日期..
40 39 38 37 36 35 34 33 32 31 30...
10 9 8 7 6 5 4 3 2 1 0 0 0
60 59 58 57 56 55 54 53 52 51 50
我想要的是该行从前一个条目中减去一个 n 号 次。我该怎么做呢?
非常感谢任何帮助。
> n = 12 # or whatever you want
> t(sapply(c(40,10,60), function(x) pmax(seq(x, (x-n+1), -1), 0) ))
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13]
[1,] 40 39 38 37 36 35 34 33 32 31 30 29 28
[2,] 10 9 8 7 6 5 4 3 2 1 0 0 0
[3,] 60 59 58 57 56 55 54 53 52 51 50 49 48