### Generation of the representive matrix Xt
X0 <- start_matrix(p = c(0.5, 0.6), k = 1000)
Xt <- iter_matrix(X0, R = diag(2), T = 10000, e.min = 0.00001)$Xt
### Calculation of probabilities for binary sequences
sequence_probs(Xt = Xt)
Run the code above in your browser using DataLab