Underflow error in viterbi.f

[jmbreda]

Hi,
First, thank you for sharing this useful package.

I encounter an underflow error where scr/viterbi.f vit() complained that log(initialProb) was infinite.

In R/Viterbi.R I added

initialProb <- log(initialProb)
initialProb[is.infinite(initialProb)] <- -325

As it is done for emissionProb. Of course, I then gave initialProb in the argument of the fortran vit function.

I had never encountered this error before.

Cheers.
Jeremie