Try example code from `multistateutils` Example vignette

msuexample.R

## Work through examples in multistateutils docs

library(mstate)
library(flexsurv)
library(multistateutils)

data(ebmt3)

tmat <- trans.illdeath(c('transplant', 'pr', 'rfs'))
tmat

long <- msprep(time=c(NA, 'prtime', 'rfstime'), 
               status=c(NA, 'prstat', 'rfsstat'), 
               data=ebmt3, 
               trans=tmat, 
               keep=c('age', 'dissub'))

models <- lapply(1:3, function(i) {
  flexsurvreg(Surv(time, status) ~ age + dissub, data=long, dist='weibull')
})

newdata <- data.frame(age="20-40", dissub="AML")

## Consistently crashes R on macOS High Sierra
# predict_transitions(models, newdata, tmat, times=365)

pmatrix.simfs(models, tmat, newdata=newdata, t=365)