# NOT RUN {
library(modesto)
# A two states CTMC example
Pt2(matrix(c(0,2,3,0),2,2,byrow=TRUE),t=0.7,epsilon=0.005)
# A four states CTMC example
R <- matrix(c(0,2,3,0,4,0,2,0,0,2,0,2,1,0,3,0),4,4,byrow=TRUE)
Pt2(R,t=0.7,epsilon=0.005)
# require(microbenchmark)
# microbenchmark(Pt(R,t=0.7,epsilon=0.005),Pt2(R,t=0.7,epsilon=0.005),times=1000L)
# }
Run the code above in your browser using DataLab