From 25797de31970f1152204040d023e522e931e9e28 Mon Sep 17 00:00:00 2001 From: Waldir Leoncio Date: Mon, 29 Jul 2024 11:24:48 +0200 Subject: [PATCH] Properly exporting `func_MCMC_graph_cpp()` (#11) --- R/func_MCMC_graph.R | 2 +- src/init.c | 4 +++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/R/func_MCMC_graph.R b/R/func_MCMC_graph.R index 2bb87a7..7f3d045 100755 --- a/R/func_MCMC_graph.R +++ b/R/func_MCMC_graph.R @@ -27,7 +27,7 @@ func_MCMC_graph <- function(sobj, hyperpar, ini, S, method, MRF_2b, cpp = FALSE) { if (cpp) { warning("This is not yet fully implemented. Please use cpp = FALSE for production") - return(func_MCMC_graph_cpp(sobj, hyperpar, ini, S, method, MRF_2b)) # FIXME: function not properly exported + return(func_MCMC_graph_cpp(sobj, hyperpar, ini, S, method, MRF_2b)) } n <- sobj$n p <- sobj$p diff --git a/src/init.c b/src/init.c index ac8aef4..d03c0ac 100644 --- a/src/init.c +++ b/src/init.c @@ -3,7 +3,7 @@ #include // for NULL #include -/* FIXME: +/* FIXME: Check these declarations against the C/Fortran source code. */ @@ -15,6 +15,7 @@ extern SEXP _BayesSurvive_sumMatProdVec(SEXP, SEXP); extern SEXP _BayesSurvive_updateBH_cpp(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP); extern SEXP _BayesSurvive_updateBH_list_cpp(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP); extern SEXP _BayesSurvive_updateRP_genomic_cpp(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP); +extern SEXP _BayesSurvive_func_MCMC_graph_cpp(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP); static const R_CallMethodDef CallEntries[] = { {"_BayesSurvive_calJpost_helper_cpp", (DL_FUNC) &_BayesSurvive_calJpost_helper_cpp, 9}, @@ -24,6 +25,7 @@ static const R_CallMethodDef CallEntries[] = { {"_BayesSurvive_updateBH_cpp", (DL_FUNC) &_BayesSurvive_updateBH_cpp, 7}, {"_BayesSurvive_updateBH_list_cpp", (DL_FUNC) &_BayesSurvive_updateBH_list_cpp, 7}, {"_BayesSurvive_updateRP_genomic_cpp", (DL_FUNC) &_BayesSurvive_updateRP_genomic_cpp, 12}, + {"_BayesSurvive_func_MCMC_graph_cpp", (DL_FUNC) &_BayesSurvive_func_MCMC_graph_cpp, 6}, {NULL, NULL, 0} };