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))
}

Try the CoCiteStats package in your browser

Any scripts or data that you put into this service are public.

CoCiteStats documentation built on Nov. 8, 2020, 6:55 p.m.