[R] A function which is a sum of other functions...

[William Dunlap]

> List <- list(abs, function(x)x*10, function(x)x*100)
> f <- function(x)Reduce(`+`, lapply(List, function(func)func(x)))
> f(-1:2)
[1] -109    0  111  222

Bill Dunlap
Spotfire, TIBCO Software
wdunlap tibco.com


> -----Original Message-----
> From: r-help-bounces at r-project.org [mailto:r-help-bounces at r-project.org] On Behalf
> Of Onur Uncu
> Sent: Thursday, December 19, 2013 11:05 AM
> To: r-help at r-project.org
> Subject: [R] A function which is a sum of other functions...
> 
> 
> Dear R Users
> 
> I have a list of functions. Each function in the list is a function of single variable. I would
> like to create a function (of one variable) which represents the sum of all the functions in
> the list. So, if the functions in my list are f1(x),..,f5(x) then I would like a new function
> f(x)=f1(x)+f2(x)+...f5(x)
> 
> Appreciate any suggestions on how to do this.
> 
> I need the above f(x) function because I would like to minimise it with respect to x using
> the nlm function.
> 
> Thanks.
> ______________________________________________
> R-help at 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.