[R] find source code

[r.ghezzo@staff.mcgill.ca]

I am using R 2.0.2 on a WinXP
I am trying to get the code of the Kruskal-Wallis test but
> kruskal.test
function (x, ...)
UseMethod("kruskal.test")
<environment: namespace:stats>

> ls(3)
  [1] "acf"                  "acf2AR"               "add.scope"
..............
[181] "kruskal.test"         "ks.test"              "ksmooth"
.......................
[475] "window<-"             "write.ftable"         "xtabs"

> class(kruskal.test)
[1] "function"

> getS3method("kruskal.test","function")
Error in getS3method("kruskal.test", "function") :
        S3 method kruskal.test.function not found

> getS3method("stats::kruskal.test","function")
Error in getS3method("stats::kruskal.test", "function") :
        no function 'stats::kruskal.test' could be found
>
I searched the archives and the answer was ' use getS3method ' . The help for
getS3method is getS3method(f,class,optional=FALSE) so I am lost
Can somebody tell me how to get the source listing of kruskal.test or of any
other hidden function?
Thanks
Heberto Ghezzo
Meakins-Christie Labs
Canada