Re: [R] summing elements in a list of functions

From: Gabor Grothendieck <ggrothendieck_at_gmail.com>
Date: Fri 20 Oct 2006 - 14:26:04 GMT

Try this:

L <- list(function(x) 1, function(x) x, sin, cos) sumL <- function(x) sum(sapply(L, function(f) f(x))) sumL(pi) # pi

On 10/20/06, James Foadi <jf117@york.ac.uk> wrote:
> Dear all,
> I have looked for an answer for a couple of days, but can't come with any
> solution.
>
> I have a set of functions, say:
>
> > t0 <- function(x) {1}
> > t1 <- function(x) {x}
> > t2 <- function(x) {x^2}
> > t3 <- function(x) {x^3}
>
> I would like to find a way to add up the previous 4 functions and obtain a new
> function:
>
> > rrr <- function(x) {1+x+x^2+x^3}
>
> without, actually, having to write it in the previous form (I could have cases
> with hundreds of functions). I thought that perhaps I could first define a
> list of functions:
>
> > ttt <- list(t0,t1,t2,t3)
>
> and then I could use something like "sum", to add up all the elements of the
> list and obtain another function. I've tried:
>
> > rrr <- function(x) {sum(ttt)}
>
> but it does not work.
>
> Any help with this is greatly appreciated.
>
> Cheers,
>
> james
> --
> Dr James Foadi
> Department of Physics
> University of York
> York YO10 5DD
>
> email: jf117@york.ac.uk
> web page: http://www-users.york.ac.uk/~jf117
> Tel: 0044 1904 434622
> Mobile: 0044 7740 678548
>
> ______________________________________________
> R-help@stat.math.ethz.ch 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.
>



R-help@stat.math.ethz.ch 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. Received on Sat Oct 21 11:50:50 2006

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.1.8, at Sat 21 Oct 2006 - 02:30:12 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help. Please read the posting guide before posting to the list.