# NOT RUN {
    data(hyper)                     # hyper dataset
    
# }
# NOT RUN {
    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