###將兩個(gè)校正曲線放在一張圖上

? p1<-plot(cal_3,lwd=3,lty=2,errbar.col="black",xlim = c(0.7,1),ylim = c(0.7,1),xlab ="Model Predicted Survival",ylab="Actual Survival",col="blue")

? par(new=TRUE)

? p2<-plot(cal_5,lwd=3,lty=2,errbar.col="red",xlim = c(0.7,1),ylim = c(0.7,1),xlab ="Model Predicted Survival",ylab="Actual Survival",col="red")