haplo.ccs(formula, ...)
haplo.ccs.fit(y, x, int, geno, inherit.mode, control, referent, names.x,
names.int, ...)
glm
,
haplo.em
,
haplo.em.control
,
haplo
,
sandcov
data(Renin)
## Fit a model for haplotype effects.
m1 <- haplo.ccs(case ~ haplo(geno[,1:12], mode = "additive"),
control = haplo.em.control(min.posterior=1e-4), referent = "223144")
## Fit a model for haplotype and covariate effects.
m2 <- haplo.ccs(case ~ gender + age + factor(race) + haplo(geno[,1:12], mode = "additive"),
control = haplo.em.control(min.posterior=1e-4), referent = "223144")
## Fit a model for haplotype interaction with gender.
m3 <- haplo.ccs(case ~ age + factor(race) + gender*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