Added placeholder for func_MCMC_graph_cpp() (#11)

ocbe-uio · Jun 12, 2024 · ed2025c · ed2025c
1 parent c56274a
commit ed2025c
Show file tree

Hide file tree

Showing 3 changed files with 35 additions and 0 deletions.
diff --git a/R/RcppExports.R b/R/RcppExports.R
@@ -1,6 +1,10 @@
 # Generated by using Rcpp::compileAttributes() -> do not edit by hand
 # Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
 
+func_MCMC_graph_cpp <- function(sobj, hyperpar, ini, S, method, MRF_2b) {
+    .Call(`_BayesSurvive_func_MCMC_graph_cpp`, sobj, hyperpar, ini, S, method, MRF_2b)
+}
+
 settingInterval_cpp <- function(y, delta_, s_, J_) {
     .Call(`_BayesSurvive_settingInterval_cpp`, y, delta_, s_, J_)
 }

diff --git a/src/RcppExports.cpp b/src/RcppExports.cpp
@@ -11,6 +11,22 @@ Rcpp::Rostream<true>&  Rcpp::Rcout = Rcpp::Rcpp_cout_get();
 Rcpp::Rostream<false>& Rcpp::Rcerr = Rcpp::Rcpp_cerr_get();
 #endif
 
+// func_MCMC_graph_cpp
+Rcpp::List func_MCMC_graph_cpp(Rcpp::List sobj, Rcpp::List hyperpar, Rcpp::List ini, uint S, std::string method, bool MRF_2b);
+RcppExport SEXP _BayesSurvive_func_MCMC_graph_cpp(SEXP sobjSEXP, SEXP hyperparSEXP, SEXP iniSEXP, SEXP SSEXP, SEXP methodSEXP, SEXP MRF_2bSEXP) {
+BEGIN_RCPP
+    Rcpp::RObject rcpp_result_gen;
+    Rcpp::RNGScope rcpp_rngScope_gen;
+    Rcpp::traits::input_parameter< Rcpp::List >::type sobj(sobjSEXP);
+    Rcpp::traits::input_parameter< Rcpp::List >::type hyperpar(hyperparSEXP);
+    Rcpp::traits::input_parameter< Rcpp::List >::type ini(iniSEXP);
+    Rcpp::traits::input_parameter< uint >::type S(SSEXP);
+    Rcpp::traits::input_parameter< std::string >::type method(methodSEXP);
+    Rcpp::traits::input_parameter< bool >::type MRF_2b(MRF_2bSEXP);
+    rcpp_result_gen = Rcpp::wrap(func_MCMC_graph_cpp(sobj, hyperpar, ini, S, method, MRF_2b));
+    return rcpp_result_gen;
+END_RCPP
+}
 // settingInterval_cpp
 Rcpp::List settingInterval_cpp(const arma::vec y, const arma::vec delta_, const arma::vec s_, const unsigned int J_);
 RcppExport SEXP _BayesSurvive_settingInterval_cpp(SEXP ySEXP, SEXP delta_SEXP, SEXP s_SEXP, SEXP J_SEXP) {

diff --git a/src/func_MCMC_graph_cpp.cpp b/src/func_MCMC_graph_cpp.cpp
@@ -0,0 +1,15 @@
+#include <RcppArmadillo.h>
+// [[Rcpp::depends(RcppArmadillo)]]
+
+// [[Rcpp::export]]
+Rcpp::List func_MCMC_graph_cpp(
+  Rcpp::List sobj,
+  Rcpp::List hyperpar,
+  Rcpp::List ini,
+  uint S,
+  std::string method,
+  bool MRF_2b
+) {
+  Rcpp::List out = Rcpp::List::create();
+  return out;
+}