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