# NOT RUN {
data("EMMTraffic")
emm <- EMM(measure="eJaccard", threshold=0.2)
emm <- build(emm, EMMTraffic)
#plot(emm) ## plot graph
## Predict state starting an state 1 after 1, 2 and 100 time intervals
## Note, state 7 is an absorbing state.
predict(emm, n=1, current_state="1")
predict(emm, n=2, current_state="1")
predict(emm, n=100, current_state="1")
## Get probability distribution
predict(emm, n=2, current_state="1", probabilities = TRUE)
# }
Run the code above in your browser using DataLab