R/inflation.R

In zhangh12/ARTP2: Pathway and Gene-Level Association Test

Defines functions inflation

Documented in inflation

inflation <- function(p, is.p, na.rm = FALSE){
  
  if(is.p){
    x <- qchisq(median(p, na.rm), df = 1, lower.tail = FALSE)
  }else{
    x <- median(p, na.rm)
  }
  x/qchisq(.5, df = 1)
  
}