Description Usage Arguments Value Author(s) See Also Examples
Given the model and priors a file is written to disk for subsequent
JAGS
run. BUGS code contained in the model and priors objects
is combined and alterered if necessary
1 | writeJagsFile(model, priors, stem = "test")
|
model |
object of class |
priors |
Object of class |
stem |
File name stem for BUGS file (default “test”) |
None.
Peter Baker p.baker1@uq.edu.au
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)
## compute segregation ratios
sr <- segregationRatios(a1$markers)
## set up model for 3 components of autooctoploid
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")
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.