R/nsIqrFilter.R

require(Biobase)
nsIqrFilter <- function(eset, cutoff=0.5) {
  IQRs <- apply(exprs(eset), 1, IQR)
  selected <- IQRs > cutoff
  return(eset[selected,])   
}
felasa/fdtools documentation built on May 16, 2019, 12:46 p.m.