![距离太远了怎么才能让三条解释线挨得近一点!!!]
是预测模型的校正曲线。
cal1<-calibrate(fit1,method = "boot",B=1000)
plot(cal1,xlim=c(0,1.0),ylim = c(0,1.0),
xlab="predicted probability",
ylab="observed probability",
legend = F,
subtitles=F)
abline(0,1,col="black",lty=2,lwd=1)
lines(cal1[,c("predy","calibrated.orig")],type = "l",lwd=1,col = "red",pch=16)
lines(cal1[,c("predy","calibrated.corrected")],type = "l",lwd=1,col = "blue",pch=16)
legend(0.55,0.75,
c("标准预测曲线","预测曲线","校正曲线"),
lty = c(2,1,1),
lwd = c(2,1,1),
col = c("black","red","blue"),
bty="n")