# Use the multitrait dataset
data(multitrait)
multitrait <- calc.genoprob(multitrait)
result <- mqmpermutation(multitrait,pheno.col=7, n.perm=2, batchsize=2)
## Not run: #Set 50 cofactors
# cof <- mqmautocofactors(multitrait,50)
# ## End(Not run)
multitrait <- fill.geno(multitrait)
result <- mqmpermutation(multitrait,scanfunction=mqmscan,cofactors=cof,
pheno.col=7, n.perm=2,batchsize=2,verbose=FALSE)
#Create a permutation object
f2perm <- mqmprocesspermutation(result)
#Get Significant LOD thresholds
summary(f2perm)
Run the code above in your browser using DataLab