> 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-boun...@r-project.org [mailto:r-help-boun...@r-project.org] On > Behalf > Of Onur Uncu > Sent: Thursday, December 19, 2013 11:05 AM > To: r-help@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@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. ______________________________________________ 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.