#' @import goseq
pwf <- function(gene.vector, org ){
if (org == 'fly') ( genome = 'dm3')
if (org == 'human') ( genome = 'hg19')
pwf = nullp(gene.vector,genome = genome, id = 'geneSymbol' ,plot.fit = F) %>%
return()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.