# 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 #boring,but expected
  ordering <- assignChrToMarkers(assignment,testCross)
  testCross <- reorganizeMarkersWithin(testCross, ordering)
# }
Run the code above in your browser using DataLab