# NOT RUN {
library(synbreedData)
# maize data example
data(maize)
maizeC <- codeGeno(maize)
# LD for chr 1
maizeLD <- pairwiseLD(maizeC,chr=1,type="data.frame")
# scatterplot
LDDist(maizeLD,type="p",pch=19,colD=hsv(alpha=0.1,v=0))
# stacked bars with default categories
LDDist(maizeLD,type="bars")
# stacked bars with user-defined categories
LDDist(maizeLD,type="bars",breaks=list(dist=c(0,10,20,40,60,180),
r2=c(1,0.6,0.4,0.3,0.1,0)))
# }
Run the code above in your browser using DataLab