data(multitrait) #Use the multitrait dataset
multitrait <- subset(multitrait, chr=1:2, ind=!apply(multitrait$pheno, 1, function(a) any(is.na(a))))
multitrait$pheno <- log(multitrait$pheno)
multitrait <- calc.genoprob(multitrait)
result <- mqmpermutation(multitrait,pheno.col=7, n.perm=2, batchsize=2)
cof <- mqmautocofactors(multitrait,50) #Set 50 cofactors
multitrait <- fill.geno(multitrait)
result <- mqmpermutation(multitrait,scanfunction=mqmscan,cofactors=cof,pheno.col=7, n.perm=2,batchsize=2,verbose=FALSE)
#EXTRA
f2perm <- mqmprocesspermutation(result) #Create a permutation object
summary(f2perm) #Get Significant LOD thresholdsRun the code above in your browser using DataLab