From: Robin Hankin <r.hankin_at_noc.soton.ac.uk>

Date: Mon 09 May 2005 - 18:16:50 EST

Date: Mon 09 May 2005 - 18:16:50 EST

Yes!

perfect!

very best wishes

Robin

On May 9, 2005, at 09:13 am, Uwe Ligges wrote:

*> Robin Hankin wrote:
**>
**>> Hello Uwe
**>
*

[snip]

> I see, now the problem is much clearer, so what about:

*>
**> f <- function(foo, int, x){
**> lf <- length(foo)
**> li <- length(int)
**> l <- max(lf, li)
**> if(l > lf) foo <- rep(foo, length = l)
**> else if(l > li) int <- rep(int, length = l)
**> values <- mapply(function(foo, int)
**> do.call(foo, list(x+int)), foo, int)
**> return(rowSums(values))
**> }
**>
**>
**> Uwe
**>
**>
**>> best wishes
**>> Robin
**>> On May 9, 2005, at 08:34 am, Uwe Ligges wrote:
**>>> Robin Hankin wrote:
**>>>
**>>>> Hi
**>>>> I have an application where my difficulty boils down to not
**>>>> being able to define a function f() with the following properties:
**>>>> f("sin",0:2,x) #returns sin(x+0) + sin(x+1) + sin(x+2)
**>>>> f(c("sin","cos"), 1:2,x) #returns sin(x+1) + cos(x+2)
**>>>> f(c("sin","cos","exp"),3,x) #returns sin(x+3) + cos(x+3) + exp(x+3)
**>>>> anyone?
**>>>
**>>>
**>>> Not really nice, but hopefully works:
**>>>
*

-- Robin Hankin Uncertainty Analyst National Oceanography Centre, Southampton European Way, Southampton SO14 3ZH, UK tel 023-8059-7743 ______________________________________________ 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.htmlReceived on Mon May 09 18:22:31 2005

*
This archive was generated by hypermail 2.1.8
: Fri 03 Mar 2006 - 03:31:40 EST
*