# NOT RUN {
accessions <- letters
x <- sample(100,length(letters))
y <- sample(100,length(letters))
res <- fisherExact(x,y,accessions)
volcanoplot(res$fchange, res$pvaladj, labels = res$accessions)
# }
Run the code above in your browser using DataLab