data(Renin)
## Specify an allele matrix with additive inheritance in a model fit by
## 'haplo.ccs' to estimate haplotype effects.
m1 <- haplo.ccs(case ~ haplo(geno[,1:12], mode = "additive"),
control = haplo.em.control(min.posterior=1e-4), referent = "223144")
Run the code above in your browser using DataLab