The R Project SVN R

Rev

Rev 27497 | Rev 41508 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 27497 Rev 28033
Line 56... Line 56...
56 
}
 56 
}
57 
\examples{
 57 
\examples{
58 
## All the "predict" methods found
 58 
## All the "predict" methods found
59 
## NB most of the methods in the standard packages are hidden.
 59 
## NB most of the methods in the standard packages are hidden.
60 
for(fn in methods("predict"))
 60 
for(fn in methods("predict"))
- 
 
 61 
   try({
- 
 
 62 
       f <- eval(substitute(getAnywhere(fn)$objs[[1]], list(fn = fn)))
61 
   try(cat(fn,":\n\t",deparse(args(getAnywhere(fn)$objs[[1]])),"\n"),
 63 
       cat(fn, ":\n\t", deparse(args(f)), "\n")
62 
       silent = TRUE)
 64 
       }, silent = TRUE)
63 
}
 65 
}
64 
\keyword{methods}
 66 
\keyword{methods}