The R Project SVN – R – Diff – /trunk/src/library/base/man/Recall.Rd



% }
\seealso{\code{\link{do.call}} and \code{\link{call}}.}
\examples{
## A trivial (but inefficient!) example:
fib <- function(n) if(n<=2) {if(n>=0) 1 else 0} else Recall(n-1) + Recall(n-2)
fibonacci <- fib; rm(fib)
## renaming wouldn't work without Recall
fibonacci(10) # 55
}
\keyword{programming}
 

Rev 7324	Rev 17556
Line 17...	Line 17...
17	`% }`	17	`% }`
18	`\seealso{\code{\link{do.call}} and \code{\link{call}}.}`	18	`\seealso{\code{\link{do.call}} and \code{\link{call}}.}`
19	`\examples{`	19	`\examples{`
20	`## A trivial (but inefficient!) example:`	20	`## A trivial (but inefficient!) example:`
21	`fib <- function(n) if(n<=2) {if(n>=0) 1 else 0} else Recall(n-1) + Recall(n-2)`	21	`fib <- function(n) if(n<=2) {if(n>=0) 1 else 0} else Recall(n-1) + Recall(n-2)`
-		22	`fibonacci <- fib; rm(fib)`
22	`fibonacci <- .Alias(fib) ## renaming wouldn't work without Recall`	23	`## renaming wouldn't work without Recall`
23	`fibonacci(10) # 55`	24	`fibonacci(10) # 55`
24	`}`	25	`}`
25	`\keyword{programming}`	26	`\keyword{programming}`
26		27

The R Project SVN R

(root)/trunk/src/library/base/man/Recall.Rd – Rev 7324 → 17556