The steps we built in the previous post can be done using the following R code. Note that you are required to install the library, HMM, for that.
library(HMM)
hmm <- initHMM(c("H","F"), c("NOR","COL", "DZY"), transProbs=matrix(c(0.7, 0.4, 0.3, 0.6), nrow = 2),
emissionProbs=matrix(c(0.5, 0.1, 0.4, 0.3, 0.1, 0.6), nrow = 2))
observations <- c("NOR","COL","DZY")
vPath <- viterbi(hmm,observations)
vPath "H" "H" "F"
