从rms校准获得图的组成部分

Question

rms的曲线值是否可以校准？来自？校准

library("rms")
set.seed(1)
n <- 200
d.time <- rexp(n)
x1 <- runif(n)
x2 <- factor(sample(c('a', 'b', 'c'), n, TRUE))
f <- cph(Surv(d.time) ~ pol(x1,2) * x2, x=TRUE, y=TRUE, surv=TRUE,time.inc=1.5)
cal <- calibrate(f, u=1.5, cmethod='KM', m=50, B=20)
plot(cal)
cal

我想获得组成这个情节的值。 y值可以在屏幕上看到，但我不清楚如何获得x和y值。感谢。