# ======================================================
# A.2.3 Dataframe construction with the mstate package
#
# December 11, 2018
# ======================================================


library(mstate)
data(ebmt3)
head(ebmt3)


tmat <- transMat(x=list(c(2,3),c(3),c()),
                 names=c("TX","PLT Recovery","Relapse/Death"))
tmat

ebmt <- msprep(data = ebmt3, trans = tmat, 
               time = c(NA, "prtime","rfstime"), 
               status = c(NA, "prstat","rfsstat"), 
               id=ebmt3$id,
               keep = c("dissub","age","drmatch","tcd"))
ebmt[ebmt$id %in% c(1,2,3),]