From ea9617630295bbc617d348f9957fae3a47ec3bab Mon Sep 17 00:00:00 2001
From: corentinchoisy <corentin.choisy@proton.me>
Date: Thu, 1 May 2025 01:01:55 +0200
Subject: [PATCH] Modified JAGS file architecture

---
 R/bpcm.R                                | 6 +++---
 inst/jags/{bpcm => bpcm.jags}           | 0
 inst/jags/{bpcm_beta => bpcm_beta.jags} | 0
 inst/jags/{bpcm_dif => bpcm_dif.jags}   | 0
 4 files changed, 3 insertions(+), 3 deletions(-)
 rename inst/jags/{bpcm => bpcm.jags} (100%)
 rename inst/jags/{bpcm_beta => bpcm_beta.jags} (100%)
 rename inst/jags/{bpcm_dif => bpcm_dif.jags} (100%)

diff --git a/R/bpcm.R b/R/bpcm.R
index 43b4435..50c413f 100644
--- a/R/bpcm.R
+++ b/R/bpcm.R
@@ -122,7 +122,7 @@ bpcm <- function(df=NULL,grp=NULL,is.dif=NULL,is.unif=NULL,priors=NULL,param=lis
     if (verbose) {
       cat('Initializing Chains...')
     }
-    dclone::parJagsModel(cl,name="mod.jags",data = data,inits = NULL,file = system.file("jags","bpcm",package="SPT"),n.chains=n.chains)
+    dclone::parJagsModel(cl,name="mod.jags",data = data,inits = NULL,file = system.file("jags","bpcm.jags",package="SPT"),n.chains=n.chains)
     if (verbose) {
       cat('DONE \n')
       cat('Applying burn-in iterations...')
@@ -232,7 +232,7 @@ bpcm <- function(df=NULL,grp=NULL,is.dif=NULL,is.unif=NULL,priors=NULL,param=lis
     if (verbose) {
       cat('Initializing Chains...')
     }
-    dclone::parJagsModel(cl,name="mod.jags",data = data,inits = NULL,file = system.file("jags","bpcm_beta",package="SPT"),n.chains=n.chains)
+    dclone::parJagsModel(cl,name="mod.jags",data = data,inits = NULL,file = system.file("jags","bpcm_beta.jags",package="SPT"),n.chains=n.chains)
     if (verbose) {
       cat('DONE \n')
       cat('Applying burn-in iterations...')
@@ -357,7 +357,7 @@ bpcm <- function(df=NULL,grp=NULL,is.dif=NULL,is.unif=NULL,priors=NULL,param=lis
     if (verbose) {
       cat('Initializing Chains...')
     }
-    dclone::parJagsModel(cl,name="mod.jags",data = data,inits = NULL,file = system.file("jags","bpcm_dif",package="SPT"),n.chains=n.chains)
+    dclone::parJagsModel(cl,name="mod.jags",data = data,inits = NULL,file = system.file("jags","bpcm_dif.jags",package="SPT"),n.chains=n.chains)
     if (verbose) {
       cat('DONE \n')
       cat('Applying burn-in iterations...')
diff --git a/inst/jags/bpcm b/inst/jags/bpcm.jags
similarity index 100%
rename from inst/jags/bpcm
rename to inst/jags/bpcm.jags
diff --git a/inst/jags/bpcm_beta b/inst/jags/bpcm_beta.jags
similarity index 100%
rename from inst/jags/bpcm_beta
rename to inst/jags/bpcm_beta.jags
diff --git a/inst/jags/bpcm_dif b/inst/jags/bpcm_dif.jags
similarity index 100%
rename from inst/jags/bpcm_dif
rename to inst/jags/bpcm_dif.jags