# NOT RUN {
data(veteran)
fit<-TransModel(Surv(time,status)~karno+as.factor(celltype),data=veteran,r=0,subset=(prior==0))
summary(fit)
fit0<-TransModel(Surv(time,status)~1,data=veteran,r=0,subset=(prior==0)) #the null model
summary(fit0)
# }
Run the code above in your browser using DataLab