R/gene.geneslist.statistic.R

"gene.geneslist.statistic" <-
function(gene, geneslist, paperLens = paperLen())
{
   ans = lapply(geneslist, function(x) gene.gene.statistic(gene, x, paperLens)) 
    
   lapply(names(ans[[1]]), function(y) 
            apply(sapply(ans, function(x) x[[y]]),1,sum))
}
Bioconductor/CoCiteStats documentation built on May 4, 2024, 4:39 p.m.