library('vcfppR')
vcffile <- system.file("extdata", "raw.gt.vcf.gz", package="vcfppR")
res <- vcftable(vcffile, "chr21:1-5050000")
# Subset by quality score
high_qual <- subset(res, qual > 100)
# Subset by position and select specific fields
region_subset <- subset(res, pos >= 5000000 & pos <= 5010000,
select = c(chr, pos, ref, alt))
region_subset <- subset(res, pos >= 5000000 & pos <= 5030400,
select = c(chr, pos, ref, alt))
# Subset SNPs (REF and ALT are single nucleotides)
snps <- subset(res, nchar(ref) == 1 & nchar(alt) == 1)
Run the code above in your browser using DataLab