我想打印R包frailtysurv中的bh函数的C代码。 所以我输入:
> frailtySurv:::bh
function (d_, R_star, K_, Y_, N_, N_dot, beta, theta, frailty,
weights, abstol, reltol, maxit)
{
.Call("_frailtySurv_bh", PACKAGE = "frailtySurv",
d_, R_star, K_, Y_, N_, N_dot, beta, theta, frailty,
weights, abstol, reltol, maxit)
}
<bytecode: 0x0000025263262be0>
<environment: namespace:frailtySurv>
在相应的Github页面顶部显示以下警告:
# Generated by using Rcpp::compileAttributes() -> do not edit by hand
但是我在'frailtysurv'库中找不到src文件，也找不到另一个可以找到_frailtysurv_bh函数的文件。 包源中没有任何.rcpp函数的踪迹。 我知道为了打印.call调用的函数，类似的问题已经问过几次了（例如:here，here或here等等）。 这些对我的情况没有帮助。
关于在哪里可以找到_frailtysurv_bh函数的任何提示？
谢谢:-）
_frailtysurv_bh函数在rcppexports.cpp文件中定义，该文件在此处定义，如下所示:
RcppExport SEXP _frailtySurv_bh(SEXP d_SEXP, SEXP R_starSEXP, SEXP K_SEXP, SEXP Y_SEXP, SEXP N_SEXP, SEXP N_dotSEXP, SEXP betaSEXP, SEXP thetaSEXP, SEXP frailtySEXP, SEXP weightsSEXP, SEXP abstolSEXP, SEXP reltolSEXP, SEXP maxitSEXP) {
BEGIN_RCPP
Rcpp::RObject rcpp_result_gen;
Rcpp::RNGScope rcpp_rngScope_gen;
Rcpp::traits::input_parameter< NumericVector >::type d_(d_SEXP);
Rcpp::traits::input_parameter< List >::type R_star(R_starSEXP);
Rcpp::traits::input_parameter< List >::type K_(K_SEXP);
Rcpp::traits::input_parameter< List >::type Y_(Y_SEXP);
Rcpp::traits::input_parameter< List >::type N_(N_SEXP);
Rcpp::traits::input_parameter< List >::type N_dot(N_dotSEXP);
Rcpp::traits::input_parameter< NumericVector >::type beta(betaSEXP);
Rcpp::traits::input_parameter< NumericVector >::type theta(thetaSEXP);
Rcpp::traits::input_parameter< String >::type frailty(frailtySEXP);
Rcpp::traits::input_parameter< NumericVector >::type weights(weightsSEXP);
Rcpp::traits::input_parameter< double >::type abstol(abstolSEXP);
Rcpp::traits::input_parameter< double >::type reltol(reltolSEXP);
Rcpp::traits::input_parameter< int >::type maxit(maxitSEXP);
rcpp_result_gen = Rcpp::wrap(bh(d_, R_star, K_, Y_, N_, N_dot, beta, theta, frailty, weights, abstol, reltol, maxit));
return rcpp_result_gen;
END_RCPP
}
您将看到它实际上是一个非常薄的包装器，用于名为bh的C++函数，它有点长，无法在这里再现，但在这里定义了它。
