polySegratioMM (version 0.6-4)

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 = ""))

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

Value

None.

See Also

setControl runJags

Examples

# NOT RUN {
## 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)
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)
# }