# NOT RUN {
seq = list(c("a","c","c","g","t","a","a","a","a","g","c","t","t","t","g"))
res = estimSM(seq = seq, E = c("a","c","g","t"), distr = "NP")
q = res$q
p = res$Ptrans
InitialLawSM(E = c("a","c","g","t"), seq = seq, q = q)
# }
Run the code above in your browser using DataLab