R help - Jun 2009 - Sending a function as an argument to C code.

Hi the list,

I am writing a function (myFunc) that is using an other function (let 
say distance).

+++++++++++++++
dist1 <- function(x,y)dist(rbind(x,y))
dist2 <- function(x,y)y2

myFunc <- function(x,distance){
  cat("...\n")
  cat(distance(1,x))
}
myFunc(x=3,distance=dist1)
myFunc(x=3,distance=dist2)
----------------

In order to optimize the code, I would like to write myFunc in C. Is it 
possible, in the C code, to call a function define in R (dist1 or dist2) 
that will be send to myFunc as an argument ?

Christophe

Christophe Genolini wrote:
> 
> 
> In order to optimize the code, I would like to write myFunc in C. Is it 
> possible, in the C code, to call a function define in R (dist1 or dist2) 
> that will be send to myFunc as an argument ?
> 
> Christophe
> 
> 
You want to read section 5.11: "Evaluating R expressions from C" in
the
Writing R Extensions manual.  Especially look at the lapply2 example.

Ian
-- 
View this message in context:
http://www.nabble.com/Sending-a-function-as-an-argument-to-C-code.-tp23994631p24008711.html
Sent from the R help mailing list archive at Nabble.com.