#For a hypothetical data
y<-c(12,33,22,34,11,23)
delta<-c(1,0,0,1,0,1)
yEst<-c(11,30,24,30,6,13)
#plotObsEst: scatter plotting of the pairwise survival times
plot<-plotObsEst(y, yEst, delta, xlab = NULL, ylab = NULL, title = "Predicted
versus Observed Survival times", legendplot = TRUE, legendpos = "topleft",
maxvalue = NULL, minvalue = NULL)
Run the code above in your browser using DataLab