# 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