Description Usage Arguments Details Value Author(s) Examples
Variations can be divided into SNVs and INDELs. By taking the output of positionincoding() as input, aaVariation() function predicts the consequences of SNVs in the harbored transcript, such as synonymous or non-synonymous.
1 | aaVariation(position_tab, coding, ...)
|
position_tab |
a data frame from Positionincoding() |
coding |
a data frame cotaining coding sequence for each protein. |
... |
Additional arguments |
this function predicts the consequence for SNVs. for INDELs, use Outputabberrant().
a data frame containing consequence for each variations.
Xiaojing Wang
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | vcffile <- system.file("extdata/vcfs", "test1.vcf", package="customProDB")
vcf <- InputVcf(vcffile)
table(values(vcf[[1]])[['INDEL']])
index <- which(values(vcf[[1]])[['INDEL']]==FALSE)
SNVvcf <- vcf[[1]][index]
load(system.file("extdata/refseq", "exon_anno.RData", package="customProDB"))
load(system.file("extdata/refseq", "dbsnpinCoding.RData", package="customProDB"))
load(system.file("extdata/refseq", "procodingseq.RData", package="customProDB"))
postable_snv <- Positionincoding(SNVvcf,exon,dbsnpinCoding)
txlist <- unique(postable_snv[,'txid'])
codingseq <- procodingseq[procodingseq[,'tx_id'] %in% txlist,]
mtab <- aaVariation (postable_snv,codingseq)
mtab[1:3,]
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.