Cox orantılı tehlike modeli için öngörülen hayatta kalma işlevini, kırılganlık terimleriyle [hayatta kalma paketini kullanarak] hesaplamak istiyorum. Modelde kırılganlık terimleri olduğunda tahmin edilen kurtulan işlevinin hesaplanamadığı anlaşılmaktadır.
## Example
require(survival)
data(rats)
## Create fake weight
set.seed(90989)
rats$weight<-runif(nrow(rats),0.2,0.9)
## Cox model with gamma frailty on litter
fit <- coxph(Surv(time, status) ~ rx+weight+frailty(litter,dist="gamma"),
data = rats)
## Compute survival curve from the cox model for rx=0 and weight=0.5 kg
plot(survfit(fit, newdata=data.frame(rx=0,weight=0.5)),xlab = "time",
ylab="Survival")
## Running this line, I get following error message:
Error in survfit.coxph(fit, newdata = data.frame(rx = 0, weight = 0.5)) :
Newdata cannot be used when a model has sparse frailty terms
sparse=TRUE, Sparse =FALSE, sparse =0, sparse=5
Seçenekleri kullanarak seyrek ve seyrek olmayan hesaplama yöntemlerini kullanmayı denedim
. Ancak, hiçbiri işe yaramadı.
Öngörülen kurtulan eğrisini kırılganlık modelime göre nasıl hesaplayabilirim?