Использование списка образцов в качестве шаблона для выборки из большого списка с переносом
Как и в моем вопросе об использовании списка образцов в качестве шаблона для выборки из большого списка без переноса, как я могу узнать, можно ли сделать это с учетом переноса?
Таким образом, если у меня есть вектор букв:
> all <- letters
> all
[1] "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z"
и тогда я определяю эталонный образец из букв следующим образом:
> refSample <- c("j","l","m","s")
в котором расстояние между элементами составляет 2 (с 1 по 2), 1 (со 2 по 3) и 6 (с 3 по 4), как я могу затем выбрать n выборок из all которые имеют одинаковый интервал между элементами refSample? Например, "a","c","d","j", "q" "s" "t" "z" а также "r" "t" "u" "a" будут действительными образцами, но "a","c","d","k" не будет.
Опять же, параметризация для функции является лучшей.
1 ответ
Решение
Я бы оставил это как упражнение, но здесь идет -
all <- letters
refSample <- c("j","l","m","s")
pick_matches <- function(n, ref, full, wrap = FALSE) {
iref <- match(ref,full)
spaces <- diff(iref)
tot_space <- sum(spaces)
N <- length( full ) - 1
max_start <- N - tot_space*(1-wrap)
starts <- sample(0:max_start, n, replace = TRUE)
return( sapply( starts, function(s) full[ 1 + cumsum(c(s, spaces)) %% (N+1) ] ) )
}
> set.seed(1)
> pick_matches(5, refSample, all, wrap = FALSE)
[,1] [,2] [,3] [,4] [,5]
[1,] "e" "g" "j" "p" "d"
[2,] "g" "i" "l" "r" "f"
[3,] "h" "j" "m" "s" "g"
[4,] "n" "p" "s" "y" "m"
> pick_matches(5, refSample, all, wrap = TRUE)
[,1] [,2] [,3] [,4] [,5]
[1,] "x" "y" "r" "q" "b"
[2,] "z" "a" "t" "s" "d"
[3,] "a" "b" "u" "t" "e"
[4,] "g" "h" "a" "z" "k"