writeControlFile: Write JAGS .cmd file for running JAGS

Description Usage Arguments Value Author(s) See Also Examples

Description

Write JAGS .cmd file to disk

Usage

1
2
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.

Author(s)

Peter Baker p.baker1@uq.edu.au

See Also

setControl runJags

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
## 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)

polySegratioMM documentation built on May 2, 2019, 9:49 a.m.