# NOT RUN {
# }
# NOT RUN {
#Set parameters
startDate <- "2000-01-01"
endDate <- "2005-01-01"
method <- "cohort"
snapshots <- 4
interval <- .25
Example<-getPIT(data,startDate, endDate,method, snapshots, interval)
lstInit <- Example$lstInitVec[lapply(Example$lstInitVec,length)>0]
lstCnt <- Example$lstCntMat[lapply(Example$lstCntMat,length)>0]
ExampleTTC <- cohort.TTC(lstCnt,lstInit)
# }
Run the code above in your browser using DataLab