Removed irrelevant comments, warning, library (#11)

ocbe-uio · Aug 15, 2024 · f5e3ba4 · f5e3ba4
1 parent 2c35bd3
commit f5e3ba4
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 4 deletions.
diff --git a/R/func_MCMC_graph.R b/R/func_MCMC_graph.R
@@ -26,7 +26,6 @@
 #' @export
 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))
   }
   n <- sobj$n

diff --git a/src/func_MCMC_graph_cpp.cpp b/src/func_MCMC_graph_cpp.cpp
@@ -1,4 +1,3 @@
-#include <thread>
 #include <RcppArmadillo.h>
 // [[Rcpp::depends(RcppArmadillo)]]
 
@@ -84,7 +83,6 @@ Rcpp::List func_MCMC_graph_cpp(
     arma::mat S_g = SSig[g];
     arma::mat Sig_g = Sig[g];
 
-    // TODO: code i loop through genes
     for (arma::uword i = 0; i < p; i++) {
       arma::uvec ind_noi = arma::regspace<arma::uvec>(0, p - 1);
       ind_noi.shed_row(i);
@@ -117,7 +115,6 @@ Rcpp::List func_MCMC_graph_cpp(
       C_g(i, i) = gam + c;
 
       // Below updating covariance matrix according to one-column change of precision matrix
-      // invC11beta <- invC11 %*% beta
 
       arma::mat invC11beta = invC11 * beta;