T <- matrix(c(0.8, 0.2, 0.1, 0.1, 0.7, 0.4, 0.1, 0.1, 0.6), nrow = 3)
check_transition_probability_matrix(T)
test_transition_probability_matrix(T)
if (FALSE) {
assert_transition_probability_matrix(T)
}
Run the code above in your browser using DataLab