使用R语言进行机制检测的隐马尔可夫模型