<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