data("16S")
emm <- EMM("Kullback", threshold=0.1)
emm <- build(emm, Mollicutes16S+1)
plot(emm, method = "graph")
## 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 DataLab