fix bugs introduced in v2.1-0

DESCRIPTION

@@ -2,8 +2,9 @@ Package: BayesSUR
 Type: Package
 Title: Bayesian Seemingly Unrelated Regression Models in
         High-Dimensional Settings
-Version: 2.1-9
-Date: 2024-06-12
+Version: 2.2-1
+Date: 2024-06-28
+DOI: 10.32614/CRAN.package.BayesSUR
 URL: https://github.com/mbant/BayesSUR
 BugReports: https://github.com/mbant/BayesSUR/issues
 Authors@R: c(person("Marco", "Banterle", email = "[email protected]", role = c("aut")),
@@ -24,14 +25,14 @@ VignetteBuilder: R.rsp, knitr, rmarkdown
 RoxygenNote: 7.3.1
 Depends: R (>= 3.5.0)
 Encoding: UTF-8
-LinkingTo: Rcpp, RcppArmadillo (>= 0.9.000)
+LinkingTo: Rcpp, RcppArmadillo
 Imports: Rcpp, xml2, igraph, Matrix, tikzDevice, stats, utils,
         grDevices, graphics
 Suggests: R.rsp, knitr, rmarkdown, BDgraph, data.table, plyr, scrime
 LazyData: true
 NeedsCompilation: yes
 SystemRequirements: C++17
-Packaged: 2024-06-12 15:34:20 UTC; zhiz
+Packaged: 2024-06-28 15:57:26 UTC; zhiz
 Author: Marco Banterle [aut],
   Zhi Zhao [aut, cre],
   Leonardo Bottolo [ctb],

NEWS.md

@@ -1,10 +1,12 @@
-# BayesSUR 2.1-9 (or BayesSUR 2.2-0 for CRAN)
+# BayesSUR 2.2-1
 
-* Fixed a bug about the use of temperature parameter in `HRR_Chain.cpp`, also minor update in `SUR_Chain.cpp`
-* Fixed random effects' sampler `HRR_Chain::stepW0()`
+* Fixed a bug about `SUR_Chain.cpp` introduced in version 2.2-0
+* Fixed argument mrfG index issue in function `BayesSUR()`
 
-# BayesSUR 2.1-8
+# BayesSUR 2.2-0
 
+* Fixed a bug about the use of temperature parameter in `HRR_Chain.cpp`, also minor update in `SUR_Chain.cpp`
+* Fixed random effects' sampler `HRR_Chain::stepW0()`
 * Added argument `beta.type` in function `plotEstimator()` to plot MPM coefficient estimates
 * Fixed argument `mrfG` index issue in function `BayesSUR()`
 

R/BayesSUR.R

@@ -513,6 +513,7 @@ BayesSUR <- function(data = NULL, Y, X, X_0 = NULL,
   if (!(is.character(mrfG) && length(mrfG) == 1)) {
     # if it's a matrix
     if ((is.numeric(mrfG) || is.data.frame(mrfG)) && !is.null(dim(mrfG))) {
+      mrfG <- mrfG - 1 # due to C++ indexing from 0
       if (ncol(mrfG) == 2) {
         mrfG <- cbind(mrfG, rep(1, nrow(mrfG)))
       }