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

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) 

我想找到「測試」不匹配「模式」或在出現這種狀況指數全序列。 所以我想類似這樣的結果：

> 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