polySegratioMM (version 0.6-5)

writeControlFile: Write JAGS .cmd file for running JAGS

Description

Write JAGS .cmd file to disk

Usage

writeControlFile(jags.control,
     file = paste(jags.control$stem, ".cmd", sep = ""))

Value

None.

Arguments

jags.control

Object of class jagsControl containing MCMC burn in, sample and thinning as well as relavant files for BUGS commands, inits and data

file

JAGS .cmd file name

Author

Peter Baker

See Also

setControl runJags

Examples

## simulate small autooctaploid data set
a1 <- sim.autoMarkers(8,c(0.7,0.2,0.1),n.markers=100,n.individuals=50)
sr <-  segregationRatios(a1$markers)

## set up model with 3 components
x <- setModel(3,8)
x2 <- setPriors(x)

if (FALSE) {

dumpData(sr, x)
inits <- setInits(x,x2)
dumpInits(inits)
##x.priors <- setPriors(x, "vague")
writeJagsFile(x, x2, stem="test")

small <- setControl(x, burn.in=20, sample=50)
writeControlFile(small)
}