Hi,
I have a problem that I'm finding a bit tricky. I'm trying to use
mapply and assign to generate curried functions. For example, if I
have the function divide
divide <- function(x, y) {
x / y
}
And I want the end result to be functionally equivalent to:
half <- function(x) divide(x, 2)
third <- function(x) divide(x, 3)
quarter <- function(x) divide(x, 4)
But I want to do it using mapply and assign:
mapply(assign,
c("half", "third", "quarter"),
lapply(2:4, function(i) {function(x) divide(x, i)}),
pos = 1)
The problem is in the third line. I end up with 3 functions that are
all functionally equivalent to quarter(). Any suggestions on how to
get this to work properly.
Thanks.
James
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
