从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)]
}