polySegratioMM (version 0.6-2)

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.

concept

• segregation ratio
• dominant marker
• autopolyploid

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