如何生成R中一个向量的所有可能的连续n元组?
# Input
x <- c('a', 'b', 'c', 'b')
n = 2
# Output
list(c('a', 'b'), c('b', 'c'), c('c', 'b')) # a list equal to this list
如何生成R中一个向量的所有可能的连续n元组?
# Input
x <- c('a', 'b', 'c', 'b')
n = 2
# Output
list(c('a', 'b'), c('b', 'c'), c('c', 'b')) # a list equal to this list
lapply(1:(length(x) - n + 1), \(i) x[i:(i + n - 1)])
# lapply(seq(length(x) - n + 1), \(i) x[seq(i, l = n)])