Greetings,

I love the R system and am sincerely grateful for the great effort the
product and contributors
are delivering.

My question is as follows:

I am trying to use S4 style classes but cannot write functions that modify
an object
because paramter passing is by value.
For example I want to do this:

setGeneric("setData", function(this,fcn,k){ standardGeneric("setData") })

setClass(
  "test",
  representation(f="numeric", t="numeric")
)
setMethod("setData","test",
  function(this,fcn,k){
    this@t <- as.numeric(seq(-k,k))/(2*k+1)
    this@f <- sapply(t,FUN=fcn)
  }
)

#-----------------------------------------------------------
tst <- new("test")
fcn <- function(u){ sin(2*pi*u) }
setData(tst,fcn,100)
tst@t   # it's still empty because of pass by value


How can this be handled?


Many thanks,

Michael

	[[alternative HTML version deleted]]

