# \donttest{
data(ACM)
# Estimate the parameters of a
# one-dimensional MC model
RTm <- tpfit(ACM$MAT3, ACM[, 1:3], c(0, 0, 1))
# Compute transition probabilities
# from the one-dimensional MC model
predict(RTm, lags = 0:2/2)
# }
Run the code above in your browser using DataLab