R/turn.off.SNP.filters.R

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

turn.off.SNP.filters <- function(options){
  
  if(options$turn.off.filters){
    options$snp.miss.rate <- 1
    options$maf <- .0
    options$gene.R2 <- 1
    options$chr.R2 <- 1
    options$huge.gene.R2 <- 1
    options$huge.chr.R2 <- 1
    options$trim.huge.chr <- FALSE
    options$huge.gene.size <- Inf
    options$huge.chr.size <- Inf
    options$HWE.p <- 0
  }
  
  options
  
}