From ad17737cdb1763ee5f93817e4ce2d1afde11dd38 Mon Sep 17 00:00:00 2001
From: zhizuio <39630023+zhizuio@users.noreply.github.com>
Date: Thu, 15 Aug 2024 15:27:00 +0200
Subject: [PATCH] disable `func_MCMC_graph_cpp()`by default

---
 R/func_MCMC.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/func_MCMC.R b/R/func_MCMC.R
index 070de6a..20e8933 100755
--- a/R/func_MCMC.R
+++ b/R/func_MCMC.R
@@ -166,7 +166,7 @@ func_MCMC <- function(survObj, hyperpar, initial,
     #     (method == "Pooled" && !MRF_G)) {
     if (!MRF_G) {
       # update graph and precision matrix
-      network <- func_MCMC_graph_cpp(survObj, hyperpar, ini, S, method, MRF_2b, cpp)
+      network <- func_MCMC_graph(survObj, hyperpar, ini, S, method, MRF_2b, cpp)
 
       Sig.ini <- ini$Sig.ini <- network$Sig.ini # precision matrix?
       C.ini <- ini$C.ini <- network$C.ini