在向量中查找与模式不匹配的序列

Question

我想在向量中找到与模式不匹配的元素序列。 例如：

pattern <- c(1,2,3,4)
test <- c(5,4,3,6,1,2,3,4,5,3,3,2,1,2,3,4,6,3,7,5,1,2,3,6)

我想在“test”中找到与“pattern”或发生这种情况的索引不匹配的整个序列。 所以我想得到一个类似的结果：

> want
[[1]]
[1] 5 4 3 6

[[2]]
[1] 5 3 3 2

[[3]]
[1] 6 3 7 5 1 2 3 6 

或类似的东西：

> indexes
[1]  1  9 17

你知道怎么做吗？

Answer 1

一个选项是

lapply(scan(text=gsub(paste(pattern,collapse=""), ",",
     paste(test, collapse="")), what="", sep=",", quiet = TRUE), 
     function(x) as.numeric(unlist(strsplit(x, ""))))
#[[1]]
#[1] 5 4 3 6

#[[2]]
#[1] 5 3 3 2

#[[3]]
#[1] 6 3 7 5 1 2 3 6