# NOT RUN {
Z=runif(100,0,sqrt(3)) #generate covariates
u=runif(100,0,1)
t=-log(u)/as.vector((1+Z)) #generate failure time
status=rep(1,100) #censoring indicator
sd<-as.data.frame(cbind(t,status,Z)) #data frame of survival data
R2addhaz(sd)
# }
Run the code above in your browser using DataLab