w <- ctqwalk(matrix(c(0,1,0,1,0,1,0,1,0), nrow=3))
mixing_matrix(w, t = 2*pi) #-> mixing_matrix.ctqwalk(...)
#> [,1] [,2] [,3]
#> [1,] 0.005025663 0.1317325 0.863241848
#> [2,] 0.131732489 0.7365350 0.131732489
#> [3,] 0.863241848 0.1317325 0.005025663