# NOT RUN {
library(modesto)
# A four states CTMC example
R <- matrix(c(0,1,0,0,0, 1/72,0,1,0,0, 0,2/72,0,1,0, 0,0,3/72,0,1/2, 0,0,0,4/72,0),5,5,byrow=TRUE)
ETCt(R,c(-80,-15,50,125,200),t=24,epsilon=0.001)
# }
Run the code above in your browser using DataLab