data(multitrait) #Use the multitrait dataset
cof <- mqmsetcofactors(multitrait,3) #Set cofactors at each 3th marker
multitrait <- fill.geno(multitrait)
multitrait <- transformPheno(multitrait, 7) #log transform the 7th phenotype
result <- mqmpermutation(multitrait,scanfunction=mqmscan,cofactors=cof,pheno.col=7,n.perm=50,batchsize=10) # Bootstrap 50 runs in batches of 10result <- mqmpermutation(multitrait,scanfunction=mqmscan,cofactors=cof,pheno.col=7,n.perm=2,batchsize=2)
f2perm <- mqmprocesspermutation(result) #Create a permutation object
summary(f2perm) #What LOD score is considered significant ?
marker <- mqmfind.marker(multitrait,result[[1]],f2perm) #Find markers with a significant QTL effect (First run is original phenotype data)
marker #Print it to the screenRun the code above in your browser using DataLab