使用 C++ 函数作为 R 包“Rcpp”中另一个 C++ 函数的参数

Question

I am new in using R package "Rcpp". My question is, if I want to use a C++ function as an argument in another C++ function, how will I do that? For example: suppose I have an C++ function like this:

#include <Rcpp.h>
using namespace Rcpp;

// [[Rcpp::export]]
double maxllC3(const double mu){
 double result;
 result= R::dgamma(mu,0.1,1,0.1);
 return result;
 }

. I want to use this function in another C++ function like we can do this in R:

sumf<-function(maxllC3,mu,y){
  res<-maxllC3(mu)+y
  return(res)
}

. How can I do that in "Rcpp" package?

Answer 1

• put you rcpp code in an .cpp file (say ex.cpp ).

• use Rcpp::sourceCpp('ex.cpp') to make this function available in the global environment

• then just use sumf <- function(mu, y) maxllC3(mu) + y