corentinchoisy/SPT
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Modified JAGS file architecture

Browse Source
This commit is contained in:
Corentin Choisy
2025-05-01 01:01:55 +02:00
parent b316248838
commit ea96176302
4 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
R/bpcm.R
View File

@ -122,7 +122,7 @@ bpcm <- function(df=NULL,grp=NULL,is.dif=NULL,is.unif=NULL,priors=NULL,param=lis
if (verbose) { if (verbose) {
cat('Initializing Chains...') 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) { if (verbose) {
cat('DONE \n') cat('DONE \n')
cat('Applying burn-in iterations...') 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) { if (verbose) {
cat('Initializing Chains...') 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) { if (verbose) {
cat('DONE \n') cat('DONE \n')
cat('Applying burn-in iterations...') 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) { if (verbose) {
cat('Initializing Chains...') 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) { if (verbose) {
cat('DONE \n') cat('DONE \n')
cat('Applying burn-in iterations...') cat('Applying burn-in iterations...')

0
inst/jags/bpcm → inst/jags/bpcm.jags
View File

0
inst/jags/bpcm_beta → inst/jags/bpcm_beta.jags
View File

0
inst/jags/bpcm_dif → inst/jags/bpcm_dif.jags
View File