## simulate small autooctaploid data set
a1 <- sim.autoMarkers(8,c(0.7,0.2,0.1),n.markers=100,n.individuals=50)
##print(a1)
sr <- segregationRatios(a1$markers)
x <- setModel(3,8)
## Not run:
# ## fit simple model in one hit and summarise
#
# x.run <- runSegratioMM(sr, x, burn.in=200, sample=500)
# plot(x.run$mcmc.mixture)
# ## End(Not run)
Run the code above in your browser using DataLab