source("https://bioconductor.org/biocLite.R")
biocLite(c('devtools','DESeq2','limma','VariantAnnotation','qvalue'))
library(devtools)
install_github('whitlock/OutFLANK')
install_github('noahrose/vcf2eqtl')
freebayes -f ref.fa *.bam > fb.vcf
cat fb.vcf \
| vcfnulldotslashdot \
| grep -vF './.' \
| vcffilter -f "TYPE = snp & QUAL > 30 & AF > 0.1 & AF < 0.9 & NUMALT = 1" -g "DP > 10" \
> biallelic_snps.vcf
expr <- read.delim('expr.txt',row.names=1)
vcf <- 'biallelic_snps.vcf'
metadata<-read.delim('meta.txt')
pops=metadata$pops
vcf2eqtl(vcf,expr,pops)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.