# NOT RUN {
data(Nhlsim)
gmap <- SNPgenmap(Nhlsim$physmap,Nhlsim$chromosome)
# Example of using RugtersMapB36 to do spline rather than linear
# interpolation of genetic map positions on chromosome 1.
# NB: Interpolant is not necessarily monotone increasing, which can lead to a
# genetic map on which markers are re-ordered relative to the physical map.
data("RutgersMapB36")
chrmap<-splinefun(RutgersMapB36[["chr1"]]$Build36_map_physical_position,
RutgersMapB36[["chr1"]]$Sex.averaged_map_position)
c1ind<-(Nhlsim$chromosome=="chr1")
gmap[c1ind]<-chrmap(Nhlsim$physmap[c1ind])
# }
Run the code above in your browser using DataLab