# NOT RUN {
library(modesto)
# A three states CTMC example
R <- matrix(c(0,2,0,3,0,1,0,6,0),3,3,byrow=TRUE)
X0 <- c(1,0,0)
PXt(X0,R,t=0.5,epsilon=0.005)
X0 <- c(0,0,1)
PXt(X0,R,t=0.5,epsilon=0.005)
# }
Run the code above in your browser using DataLab