<testonly>old <- Sys.setlocale("LC_COLLATE", "C")</testonly>
require(utils)
## All the "predict" methods found
## NB most of the methods in the standard packages are hidden.
for(fn in methods("predict"))
   try({
       f <- eval(substitute(getAnywhere(fn)$objs[[1]], list(fn = fn)))
       cat(fn, ":
t", deparse(args(f)), "")
       }, silent = TRUE)
<testonly>old <- Sys.setlocale("LC_COLLATE", old)</testonly>Run the code above in your browser using DataLab