I have analyzed the survival time of a currency Unit "not being recovered" (for a debt) by fitting a Cox P. regression model. Apparent $R^2=1$ is high, $D_{xy}=0.16$ . After bootstrap validating - validate(fit,b=50) (I have lots of observations so I only ran B=50) - Still getting high $R^2 = 0.997$ and $D_{xy}$ also the same as above. Does it make sense to have high $R^2$ and calibration looks ok, and not to narrow spread of predicted survival proportions. yet that low Somers' D?
Update: Context Consider a debt of $1000 that was not paid and the collection agency start collecting that debt and a followup time of 100 months . Recoveries/payments on that debt are done at different times say x is paid month=1 ,y is paid month=50 , z is paid month=60.
At each payment I add an observation with a column: event = 1(not censored) also adding a frequency weight of the recovered amount - say if that person paid $200 then frequency weight = 200, I also record the time say month=40. if the end of the followup period ends and outstanding debt is > 0 say 800 then we record that event = 0(censored) and set the frequency weight= 800, month = 80(since this debt appeared 20 month from the start of the observation time point)
Using the rms
package i fitted a cox proportional hazard model:
fit <- cph( Surv(month,event) ~ x1 + x2 + x3 ,x=T, y=T,surv=T,time.inc = 1,weights=frequency , data = data )
due to the fact that the correlation may is strong I also tried.
fit2 <- robcov( fit, cluster = ID)
Which gave a bit a bit higher standard errors for the predictors but not that anything became not significant.
finally we get the calibration curve with:
calibrate(fit,b=40,u=90)
Can this explain the results that I am getting?
rms
package. And the apparent $R^2$ does not look right. Are you certain there is no circularity in the model formulation? Is the x-axis really predicted times or is it probabilities? $\endgroup$