R/update.sf.R

update.sf <- function(sf, exc.snps){
  
  if(length(exc.snps) == 0){
    return(sf)
  }
  
  id <- which(!(sf$SNP %in% exc.snps))
  if(length(id) == 0){
    msg <- "All SNPs excluded in update.sf"
    stop(msg)
  }
  
  sf <- sf[!(sf$SNP %in% exc.snps), ]
  sf
  
}

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.