require(GenABEL.data)
	data(ge03d2)
	dta <- ge03d2[,1:100]
# analysis using linear model
	xq <- mlreg.p(bmi~sex,dta)
# logistic regression, type guessed automatically
	xb <- mlreg.p(dm2~sex,dta)
# Cox proportional hazards model, assuming that age is the follow-up time 
# generally this does not make sense (could be ok if age is age at onset)
	xs <- mlreg.p(GASurv(age,dm2)~sex,dta)
Run the code above in your browser using DataLab