# NOT RUN {
data(testCross)
data(testPopulation)
assignment <- cross.denovo(testPopulation,n.chr=5,verbose=TRUE,map="genetic",
comparisonMethod=sumMajorityCorrelation, use.orderMarkers=FALSE,reOrder=FALSE)
assignment
ordering <- assignChrToMarkers(assignment,testCross)
# }
Run the code above in your browser using DataLab