R/trim.deleted.snps.R

Defines functions trim.deleted.snps

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
  
}
zhangh12/ARTP2 documentation built on Aug. 16, 2019, 7:27 p.m.