########################################
## getting some rates to mimick
########################################
data(base1cumhaz)
data(base4cumhaz)
data(drcumhaz)
dr <- drcumhaz
base1 <- base1cumhaz
base4 <- base4cumhaz
######################################################################
### simulating simple model that mimicks data
### now with two event types and second type has same rate as death rate
######################################################################
rr <- simRecurrentII(1000,base1,base4,death.cumhaz=dr)
rr <- count.history(rr)
dtable(rr,~"Count*"+status,level=1)
Run the code above in your browser using DataLab