## Not run:
# vcffile <- system.file("extdata/vcfs", "test1.vcf", package="customProDB")
# vcf <- InputVcf(vcffile)
#
# table(values(vcf[[1]])[['INDEL']])
# index <- which(values(vcf[[1]])[['INDEL']] == TRUE)
# indelvcf <- vcf[[1]][index]
#
# index <- which(values(vcf[[1]])[['INDEL']] == FALSE)
# SNVvcf <- vcf[[1]][index]
#
# txdb <- loadDb(system.file("extdata/refseq", "txdb.sqlite", package="customProDB"))
# load(system.file("extdata/refseq", "ids.RData", package="customProDB"))
# SNVloc <- Varlocation(SNVvcf,txdb,ids)
# indelloc <- Varlocation(indelvcf,txdb,ids)
# table(SNVloc[,'location'])
# ## End(Not run)
Run the code above in your browser using DataLab