data(hyper) # hyper dataset
hyper <- hyper[1:5]
hyperfilled <- fill.geno(hyper)
cofactors <- mqmautocofactors(hyperfilled,15) # Set 15 Cofactors
result <- mqmscan(hyperfilled,cofactors) # Backward model selection
mqmgetmodel(result)
Run the code above in your browser using DataLab