R - 绘制随机有序样本

Question

在 R 中，我目前有以下代码：

    sample(1:15,sample(1:15,1))

这会以随机顺序绘制随机大小的值。但是，对于我的应用程序，顺序必须保持不变。

我不能简单地在每次绘制后对值进行排序，因为这在计算上效率低下。对于我的应用程序，我想从有序值的样本中提取，这将大大减少样本量，从而减少计算时间。

一些例子：

    > 7 9 13 14
    > 1 5 6
    > 3 4 8 10 11 14 15
    > 2
    > 2 4 6 8 9

编辑：抽奖中的每个值也必须是唯一的。

Answer 1

您可以通过逐步浏览列表来解决此问题，并在每一步都考虑在抽样时选择此值的概率有多大。这正是这个函数的作用

### Function that will select N values and preserve the order
mySample <- function(values,N){

        size <- length(values)

        values[sapply(1:size, function(i){
                    select <- as.logical(rbinom(1,1,N/(size+1-i)))
                    if(select) N <<- N - 1
                    select
        })]

}