R/filter.R

In snapCGH: Segmentation, normalisation and processing of aCGH data

Defines functions removeByWeights filterClones

Documented in filterClones removeByWeights

filterClones <- function(MA, filterFunc, ...){
  remove <- as.matrix(filterFunc(MA, ...))
  for(i in 1:ncol(MA)){
    MA$M[remove[,i],i] <- NA
  }
  MA
}

removeByWeights <- function(MA, weights=MA$weights, threshold = 0.2){

  index <- weights[,] < threshold
  as.matrix(index)
}

Try the snapCGH package in your browser