R语言隐马尔可夫模型HMM识别不断变化的股票市场条件