#get 'Crossdata' from package
data(Crossdata)
data1<-Crossdata
#
#get kernel smooth hazard plot
Hazard.plot(data1$time, data1$status, data1$group, max.0=NULL,max.1=NULL
, lab.x='Time', lab.y='Smooth hazard ratio'
, col=c(1,4), lwd=c(3,3), lty=c(1,1), legend=TRUE, local.x=2.7, local.y=1.25
, legend.0='group0', legend.1='group1')
Run the code above in your browser using DataLab