## create two state HMM with t distributions
state.names <- c("one","two")
transition <- c(0.1, 0.02)
location <- c(1, 2)
scale <- c(1, 1)
df <- c(4, 6)
model <- getHMM(list(a=transition, mu=location, sigma=scale, nu=df),
state.names)
## obtain observation sequence from model
obs <- sampleSeq(model, 100, return.states=TRUE)
## compute most likely state sequence for obs
vit.res <- viterbi(model, obs$observation)
## how well did we do?
sum(vit.res$stateSeq == obs$states)/length(vit.res$stateSeq)
Run the code above in your browser using DataLab