4 typedef Double_t (*Function)(Double_t);
11 Double_t doEval(Double_t x) {
18 ROOTR_MODULE(MyFunctorModule) {
19 ROOT::R::class_<MyFunctor>(
"MyFunctor" )
21 .method(
"doEval", &MyFunctor::doEval )
28 ROOT::R::TRInterface &r=ROOT::R::TRInterface::Instance();
29 r[
"MyFunctorModule"]<<LOAD_ROOTR_MODULE(MyFunctorModule);
31 r<<
"MyFunctor <- MyFunctorModule$MyFunctor";
32 r<<
"u <- new(MyFunctor)";
33 r<<
"print(u$doEval( 1 ))";
34 std::cout<<
"value in ROOT = "<<TMath::BesselY1(1)<<std::endl;