# filtet vcf
data("geneHapR_test")
vcf_f1 <- filter_vcf(vcf, mode = "POS",
Chr = "scaffold_1",
start = 4300, end = 5890)
vcf_f2 <- filter_vcf(vcf, mode = "type",
gff = gff,
type = "CDS")
vcf_f3 <- filter_vcf(vcf, mode = "both",
Chr = "scaffold_1",
start = 4300, end = 5890,
gff = gff,
type = "CDS")
Run the code above in your browser using DataLab