You can work with each chromosome separately and then use switch.order() to re-order the markers in the original cross object to match those you've discovered.
Here's a bit of code, as an example. First, I load the hyper data and re-order markers on chromosome 4. We'll pretend that
hyper.new has the marker order we want
data(hyper)
hyper.new <- switch.order(hyper, chr=4, c(3,1,2,5,4,6:nmar(hyper)[4]))
Now I want to get the markers in hyper to match the new order in
hyper.new. I use match and then switch.order
m <- match(markernames(
hyper.new, chr=4), markernames(hyper, chr=4))
hyper.reordered <- switch.order(hyper, 4, m)
I would also suggest using findDupMarkers() to identify markers with matching genotypes, and then drop.markers to omit them before you do the map construction. Markers with the same data will end up in the same spot anyway, and their presence will just slow everything down.
dupmar <- findDupMarkers(hyper)
hyper.nodup <- drop.markers(hyper, unlist(dupmar))
karl
> --
> You received this message because you are subscribed to the Google Groups "R/qtl discussion" group.
> To post to this group, send email to
rqtl...@googlegroups.com.
> To unsubscribe from this group, send email to
rqtl-disc+...@googlegroups.com.
> For more options, visit this group at
http://groups.google.com/group/rqtl-disc?hl=en.
>