# Load data
data(AGT)
x <- as.bed.matrix(AGT.gen, AGT.fam, AGT.bim)
x <- set.stats(x)
# Compute LD
ld.x <- LD(x, c(1,ncol(x)))
# Plot with LDheatmap from the package LDheatmap
LDheatmap(ld.x, genetic.distances=x@snps$pos)Run the code above in your browser using DataLab