r - 在序列对象上使用 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)

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