Hi,
Once again, I think apply family is your friend. Dont forget functions are objects as any others:
At 09:36 5/04/2004, S�ren H�jsgaard wrote:
Suppose I have
f1 <- function(x) x
f2 <- function(x) x^2
funlist <- list(f1,f2)
Then I would like to evaluate funlist such that when x is 10 I should get a list with 10 and 100.
> lapply(funlist, FUN=function(f) f(10)) [[1]] [1] 10
[[2]] [1] 100
Or, better, pass the value as extra-parameter:
> sapply(funlist, FUN=function(f,x) f(x), x=10) [1] 10 100
A related question is that of anonymous functions: how to evaluate function(x)x^2 on x<-10 without assigning the function to a name?
Here again, you can embedd the definition of your function in the [sl]apply code:
> sapply(x<-10, FUN=function(x) x^2) [1] 100
Eric
Eric Lecoutre UCL / Institut de Statistique Voie du Roman Pays, 20 1348 Louvain-la-Neuve Belgium
tel: (+32)(0)10473050 [EMAIL PROTECTED] http://www.stat.ucl.ac.be/ISpersonnel/lecoutre
If the statistics are boring, then you've got the wrong numbers. -Edward Tufte
______________________________________________ [EMAIL PROTECTED] mailing list https://www.stat.math.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
