从R中的序列中随机提取多个连续项

Question

Frag <- seq(1: 30000)
K <- 9
P <- sample(1:K,1)
sys.sample <- Frag[seq(P, length(Frag), K)]

现在sys.sample包含3333个数字。如何在R中随机抽取16个连续项目？

Answer 1

如果向量v具有n元素，并且要随机提取p连续元素(p<=n)，则可以这样做：

possibleIndex = seq(length(v) - p + 1)
firstIndex = sample(possibleIndex, 1)

v[firstIndex:(firstIndex + p -1)]

Answer 2

将@ColonelBeauvel的答案放入一个函数中，看起来如下所示

extractRandWindow <- function(x, p){
    firstIndex = sample(seq(length(x) - p + 1), 1)
    x[firstIndex:(firstIndex + p -1)]
}

​

​