r - 生成间隔至少 10 的随机数

Question

我想生成从 1 到 100,000 的 100 个数字，其中每个数字之间的空间至少为 10。

一种方法是将 100,000 除以 10，然后做样本(1000,100)并得到答案，乘以 10，但数字都以 0 结尾。

如何生成不仅以 0 结尾的随机数？

Answer 1

我想不出一种非递归的方法来做到这一点(首先想到的是在你的方法中添加“抖动”，但这几乎肯定会使一些观察结果彼此过于接近)，但这会起作用:

set.seed(102438)
include <- 1:100000
smpl <- integer(100)

for (i in 1:length(smpl)){
  smpl[i] <- si <- sample(include, 1)
  #now remove anything within 10 of the current draw
  include <- setdiff(include, (si - 10L):(si + 10L))
}

min(abs(diff(smpl)))
# [1] 1105