イベント シーケンス オブジェクトの特定のパターンを要約したいと考えています。これを行う理由は、シーケンスが長すぎて (数百のイベント)、計算が非常に困難になるためです。頻度の高いサブシーケンスを特定したので、特定の頻度の高いサブシーケンスを完全なサブシーケンスを示すマーカーに置き換えたいと考えています (あたかもそれが単一のイベントであるかのように)。
たとえば、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)
これは正常に機能しているように見えますが、シーケンスをテキスト文字列に変換し、シーケンス オブジェクトとして機能しなくなります。シーケンスオブジェクトのステータスをシーケンスオブジェクトとして維持しながら、そのような置換操作を行う方法はありますか?