Hello,
Could someone please tell me what I am thinking about incorrectly:
f <- function(y) {
g <- function(x) x + y
g
}
In the following, I get what I expect based on my understanding of
lexical scoping:
(f(1))(3) # 4
(f(2))(3) # 5
But now,
fs <- lapply(c(1, 2), f)
fs[[1]](3) # 5 (Why not 4 ?)
fs[[2]](3) # 5
Checking the environments of these functions, I see that "y" is indeed
bound to the value 2 in both cases:
es <- lapply(fs, environment)
ys <- lapply(es, function(env) get("y", env)) # list(2, 2)
?
Thanks for help,
Jim Rogers
James A. Rogers, Ph.D. <[EMAIL PROTECTED]>
Statistical Scientist
Cantata Pharmaceuticals
3-G Gill St
Woburn, MA 01801
617.225.9009
Fax 617.225.9010
______________________________________________
[EMAIL PROTECTED] mailing list
http://www.stat.math.ethz.ch/mailman/listinfo/r-help
