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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.