# NOT RUN {
data(GIMAP5.CEU)
ll<-LDheatmap(GIMAP5.CEU$snp.data,GIMAP5.CEU$snp.support$Position,flip=TRUE)
# Add recombination rate plot
ll_recomb <- LDheatmap.addRecombRate(ll, chr="chr7", genome="hg18")
# }
Run the code above in your browser using DataLab