R/trim.deleted.snps.R

trim.deleted.snps <- function(deleted.snps, options){
  
  if(options$tidy && nrow(deleted.snps)){
    keep.row <- which(!(deleted.snps$reason %in% c("NO_SUM_STAT", "NO_REF", "NO_RAW_GENO")))
    deleted.snps <- deleted.snps[keep.row, , drop = FALSE]
  }
  
  deleted.snps
  
}

Try the ARTP2 package in your browser

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

ARTP2 documentation built on May 2, 2019, 3:38 p.m.