R 基于上一个元素的值创建序列

我试图得到20个长度为1000的序列，每个序列是通过在序列中的前一个元素上随机添加1或0生成的

我试过这个：

h <- replicate(20, rep(0, 1000), simplify=FALSE)
lapply(h, function(v) for(i in 2:1000){ v[i] = v[i - 1] + 1 })

h
set.seed（100）
x正是我想要的，谢谢！我8分钟后接受
set.seed(100)
x <- replicate(20, cumsum(sample(0:1, 1000, replace = TRUE)), simplify = FALSE)
str(x)
# List of 20
 # $ : int [1:1000] 0 0 1 1 1 1 2 2 3 3 ...
 # $ : int [1:1000] 0 0 1 2 2 2 2 2 3 4 ...
 # $ : int [1:1000] 1 2 3 3 4 5 6 6 7 7 ...
 # $ : int [1:1000] 0 0 1 1 2 2 3 4 4 5 ...
 # $ : int [1:1000] 1 1 1 2 2 2 2 3 3 3 ...
 # $ : int [1:1000] 1 2 2 3 4 5 6 7 7 7 ...
 # $ : int [1:1000] 0 0 0 1 2 3 3 4 5 6 ...
 # $ : int [1:1000] 1 1 1 2 3 3 4 4 4 5 ...
 # $ : int [1:1000] 1 1 1 1 1 1 1 1 1 2 ...
 # $ : int [1:1000] 1 1 2 3 3 3 3 3 3 3 ...
 # $ : int [1:1000] 1 1 1 1 2 3 3 4 4 5 ...
 # $ : int [1:1000] 0 0 1 1 1 2 3 3 3 4 ...
 # $ : int [1:1000] 0 0 1 1 1 2 2 3 4 4 ...
 # $ : int [1:1000] 0 0 1 1 2 2 3 4 4 4 ...
 # $ : int [1:1000] 0 0 1 2 2 2 2 3 3 3 ...
 # $ : int [1:1000] 1 2 3 3 3 4 5 6 6 7 ...
 # $ : int [1:1000] 0 0 1 2 2 2 3 3 3 4 ...
 # $ : int [1:1000] 1 1 2 3 3 3 3 3 4 4 ...
 # $ : int [1:1000] 0 1 1 2 3 3 4 4 4 5 ...
 # $ : int [1:1000] 0 0 1 2 2 3 3 4 4 5 ...