f2qtl <- c(3,15,1,0) # QTL at chromosome 3
data(map10) # Mouse genetic map
map10 <- map10[1:3]
f2cross <- sim.cross(map10,f2qtl,n=100,type="f2") # Simulate a F2 Cross
f2result <- mqmpermutation(f2cross,scanfunction=mqmscan) # Bootstrap MQM mapping on the f2crossf2result <- mqmpermutation(f2cross,scanfunction=mqmscan, n.perm=2, batchsize=2)
f2perm <- mqmprocesspermutation(f2result) # Create a permutation object
summary(f2perm) # What LOD score is considered significant ?Run the code above in your browser using DataLab