R/gammratio.R

Defines functions gammratio

gammratio <- function(n,d){
    aux <- gamma(d)
    if(n==0)
      aux
    else
      for(i in 1:n)
            aux <- aux*(n+d-i)/i
      aux
  }

Try the tweeDEseq package in your browser

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

tweeDEseq documentation built on Nov. 17, 2017, 8:50 a.m.