## Aortic aneurysm growth data
data(aneur)
## Three-state one-way progression model
oneway.q <- rbind( c(0, 1, 0, 0), c(0, 0, 1, 0), c(0, 0, 0, 1), c(0, 0, 0, 0))
## Crude initial values for 1-2, 2-3 and 3-4 transition intensities
crudeinits.msm(fromstate=from, tostate=to, timelag=dt, fromto=TRUE,
data=aneur, qmatrix=oneway.q)
Run the code above in your browser using DataLab