在序列对象上使用grep（）或sub（）？

Question

我想总结一下事件序列对象中的某些模式。我想这样做的原因是我的序列太长（几百个事件），这使得计算非常困难。我已经确定了频繁的子序列，现在我想用表示完整子序列的标记替换某些频繁的子序列（就像它是单个事件一样）。

例如，我可能有一个我要替换的模式，比如说FA-FA。在序列中

FA-FA-EX-EX-FA (5 event markers)

现在这将是：

FAFA_pattern-EX-EX-FA (4 event markers)

我尝试了以下几点：

library(TraMineR)
data(actcal.tse)
actcal.seqe <- seqecreate(id = actcal.tse$id, 
timestamp = actcal.tse$time, event = actcal.tse$event)
actcal.seqe2 <- sub("(LowPartTime)-1-(Stop)", "replaced_pattern", actcal.seqe)

这似乎工作正常，但是，它将序列转换为文本字符串，它不再作为序列对象。有没有办法在将序列对象的状态保持为序列对象的同时进行这种替换操作？