# NOT RUN {
data("EMMsim")
emm <- EMM(threshold=.5)
emm <- build(emm, EMMsim_train)
head(transition_table(emm, EMMsim_test))
head(transition_table(emm, EMMsim_test, type ="prob", initial_transition=TRUE))
# }
Run the code above in your browser using DataLab