diff options
Diffstat (limited to 'R/updatebasic.R')
| -rw-r--r-- | R/updatebasic.R | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/R/updatebasic.R b/R/updatebasic.R index d128918..5b5528d 100644 --- a/R/updatebasic.R +++ b/R/updatebasic.R @@ -1,6 +1,6 @@ update.jagsUIbasic <- function(object, parameters.to.save=NULL, n.adapt=NULL, n.iter, n.thin=NULL, - modules=c('glm'), factories=NULL, DIC=NULL, seed=as.integer(Sys.time()), verbose=TRUE, ...){ + modules=c('glm'), factories=NULL, DIC=NULL, verbose=TRUE, ...){ mod <- object$model n.chains <- length(object$samples) @@ -29,7 +29,7 @@ update.jagsUIbasic <- function(object, parameters.to.save=NULL, n.adapt=NULL, n. par <- run.parallel(data=NULL,inits=NULL,parameters.to.save=parameters,model.file=NULL,n.chains=n.chains ,n.adapt=n.adapt,n.iter=n.iter,n.burnin=0,n.thin=n.thin,modules=modules,factories=factories, - seed=seed,DIC=DIC,model.object=mod,update=TRUE,verbose=verbose,n.cores=n.cores) + DIC=DIC,model.object=mod,update=TRUE,verbose=verbose,n.cores=n.cores) samples <- par$samples m <- par$model @@ -58,4 +58,4 @@ update.jagsUIbasic <- function(object, parameters.to.save=NULL, n.adapt=NULL, n. return(output) -}
\ No newline at end of file +} |