[R] Source code for "extractAIC"?

[Yu Shao]

Dear R users:

I am looking for the source code for the R function extractAIC. Type the 
function name doesn't help:

 > extractAIC
function (fit, scale, k = 2, ...)
UseMethod("extractAIC")
<environment: namespace:stats>

And when I search it in the R source code, the best I can find is in (R 
source root)/library/stats/R/add.R:

extractAIC <- function(fit, scale, k = 2, ...) UseMethod("extractAIC")


Could anyone point out to me where I can its source code? And my R 
version is:

 > version
          _
platform sparc-sun-solaris2.9
arch     sparc
os       solaris2.9
system   sparc, solaris2.9
status
major    1
minor    9.0
year     2004
month    04
day      12
language R


Thanks,

-- 
Yu Shao
Bioinformatics Group, Wadsworth Research Center
New York State Department of Health