我正在开发一个抽样函数来进行随机化以使日子更轻松:
Question:
pln <- 1:80
bcap <- cumsum(c(20, 12, 16, 16, 16))
bcap
[1] 20 32 48 64 80
对于这个例子,我想随机化pln
1:20、21:32、33:48、49:64、65:80。对于不同的场景,这可能会有所不同。
newpln <- c(sample(1:20), sample(21:32), sample(33:48),
sample(49:64), sample(65:80))
我想创建一个通用函数,其中长度bcap
可以是任意数字,但是pln
应该运行1: max(bcap)
。