Properly exporting func_MCMC_graph_cpp() (#11)

ocbe-uio · Jul 29, 2024 · 25797de · 25797de
1 parent 173a502
commit 25797de
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git 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
@@ -3,7 +3,7 @@
 #include <stdlib.h> // for NULL
 #include <R_ext/Rdynload.h>
 
-/* 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}
 };