Viterbi example using the hmm package