r - 维特比算法后处理

Question

我在学校运行具有 2 个隐藏状态的隐马尔可夫模型项目的脚本。在某些时候，我使用维特比算法来找到最合适的隐藏状态序列。我的输出是这样的向量：

c("1","1","1","2","2","1", "1","1","1","2", "2","2")

我想计算每个状态有多少个子序列，并记录它们的长度和位置。例如，输出将是这样的 matrx：

State   Length  Starting_Position
1        3      1
2        2      4
1        4      6
2        3      10

是否有任何 R 命令或包可以轻松做到这一点？

谢谢你。