R/PruneCNA.EXTS.R

In HenrikBengtsson/aroma.cn: Copy-Number Analysis of Large Microarray Data Sets

setMethodS3("nbrOfGenerations", "PruneCNA", function(this, ...) {
  length(this)
})

setMethodS3("extractGenerations", "PruneCNA", function(this, generations, ...) {
  # Argument 'generations':
  n <- nbrOfGenerations(this)
  if (any(generations < 0)) {
    generations <- setdiff(seq_len(n), -generations)
  }
  generations <- Arguments$getIndices(generations, max=n)

  res <- unclass(this)
  res <- res[generations]
  class(res) <- class(this)
  res
})

setMethodS3("[", "PruneCNA", function(x, i) {
  # To please R CMD check
  this <- x

  extractGenerations(this, generations=i)
})