# NOT RUN {
data("16S")
emm <- EMM("Kullback", threshold=0.1)
build(emm, Mollicutes16S+1)
## start state for sequences have an initial state probability >0
it <- initial_transition(emm)
it[it>0]
# }
Run the code above in your browser using DataCamp Workspace