library(markovMSM)
data("colonMSM")
db_wide<-colonMSM
positions<-list(c(2, 3), c(3), c())
namesStates = c("Alive", "Rec", "Death")
tmat <-transMatMSM(positions, namesStates)
timesNames = c(NA, "time1","Stime")
status=c(NA, "event1","event")
trans = tmat
db_long<- prepMSM(data=db_wide, trans, timesNames, status)
times=365
# \donttest{
res<-AUC.test(data = db_long, times=times, from=2, to=3, type='local',
replicas=2, tmat = tmat)
res$localTest
summary(res)
# }
Run the code above in your browser using DataLab