##使用HMM包，首先用initHMM函数先建立一个HMM模型。

states<-c("0","1","2","3","4")

symbols<-as.vector(as.data.frame(table(as.vector(unlist(list.wids))))[[1]])

##symbols数目庞大，约有7584个，大概形式为c("7", "34", "35", "36", "37", "38", "39", "40", "41", "42","43", "44", "49", "50", "55", "56", "57", "60", "62", "63",....)

startprobs<-c(0.108361204013378, 0.412931995540691, 0.138461538461538, 0.232998885172798, 0.107246376811594)

inhmm1<-initHMM(states,symbols,startprobs)

###接下来想要用baumWelch函数获得最优HMM模型参数

observation1<- c("38730" "38731" "38732" "24855" "24856" "24857" "24872" "24882" "24938" "24939" "24370" "24371" "24957" "24357" "24358" "24359" "1344" "22464" "48901" "25287" "25288" "25289")

bw<-baumWelch(inhmm1,observation1,maxIteration=10,delta=1E-9,pseudoCount=0)

inhmm2<-bw$hmm

##再用一个observation训练模型

observation2<-c( "28629" "6169" "22535" "22534" "25262" "25261" "39802" "25727" "25728" "25729" "26179" "25288" "25289")

bw<-baumWelch(inhmm2,observation2,maxIteration=10,delta=1E-9,pseudoCount=0)

此时出错“错误于if (d < delta) { : 需要TRUE/FALSE值的地方不可以用缺少值”

请问各位大牛，为什么会出现这样的问题呢？我觉得可能是因为symbol的总量太大，而observations1的符号数目不足，使得inhmm1中“emissionProbs”很多值为0导致出错，不知道这样理解对不对？那么如何解决这个问题呢？