# NOT RUN {
# Load the vcfR object -- requires vcfR
if (requireNamespace("vcfR", quietly = TRUE)) {
require(vcfR)
data(vcfR_example)
vcf <- vcf[8:12,]
# Extract needed genotype information
alist <- vcfR2SnpMatrix(vcf)
# Draw a pairwise LD plot using the extracted data
LDheatmap(alist$data, alist$genetic.distance)
}
# }
Run the code above in your browser using DataLab