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