vcf.path <- system.file("extdata/callerA.vcf.gz", package = "bedr");
vcf.data <- read.vcf(vcf.path, split.info = TRUE);
vcf.data$vcf <- vcf.data$vcf[,
c("CHROM", "POS", "END", setdiff(colnames(vcf.data$vcf), c("CHROM", "POS", "END")))
];
vcf.data$vcf$CHROM <- paste("chr", vcf.data$vcf$CHROM, sep = "");
## Not run:
# # need reference sequence FASTA and index file to run this, as 'fasta' parameter
# is.valid.ref(vcf.data);
# ## End(Not run)
Run the code above in your browser using DataLab