Я пытаюсь использовать модель Кокса, чтобы предсказать вероятность сбоя за время (которое называется остановка) 3.

bladder1 <- bladder[bladder$enum < 5, ] 
coxmodel = coxph(Surv(stop, event) ~ (rx + size + number)  + 
        cluster(id), bladder1)
range(predict(coxmodel, bladder1, type = "lp"))
range(predict(coxmodel, bladder1, type = "risk"))
range(predict(coxmodel, bladder1, type = "terms"))
range(predict(coxmodel, bladder1, type = "expected"))

Тем не менее, все выходы функции предсказания не находятся в диапазоне 0-1. Есть ли какая-либо функция или как я могу использовать прогнозирование lp и базовую функцию опасности для вычисления вероятности?