Displaying 1 result from an estimated 1 matches for "isdic".
Did you mean:
isdir
2007 Apr 29
0
Going from Coda Files to R2WinBUGS
...ndex.table[1,3]}
#you will need to put the n.burnin in yourself
#for the cypraea example, it is 1000
bugs.fit <- R2WinBUGS:::bugs.sims(varNames, n.chains=n.chains,
n.iter=n.iter, n.burnin=n.burnin, n.thin=n.thin, DIC = DIC)
class(bugs.fit)<-"bugs"
bugs.fit$isDIC <- FALSE
#clean up the new coda files
if(file.rm==T){
file.remove("codaIndex.txt")
for(i in rownames(index.table)){
file.remove(paste("coda",i,".txt",sep=""))
}
}
return(bugs.fit)
}
codaSplit<-function(codafile="jags....