powered by
transition2Generator(P, t = 1, method = "logarithm")
rctmc
mymatr <- matrix(c(.4, .6, .1, .9), nrow = 2, byrow = TRUE) Q <- transition2Generator(P = mymatr) expm::expm(Q)
Run the code above in your browser using DataLab