[R] extractAIC.survreg problem with df

[Stefano Calza]

Hi everybody.

I'm having problems with the extractAIC.survreg function and the edf

I get weird results which I think are due to the fact that the function defines edf as (from the stats package in 1.9.0 source code)

...
...
n <- length(fit$residuals)
edf <- n-fit$df.residual
...

But in a survreg object there's no attribute residuals!!??

if in the function I use instead

...
n <- length(residuals(fit)
...

everything's fine, or better

...
edf <- fit$df
...

Am I missing something?

TIA,
Stefano