R/AromaUnitTotalCnBinarySetTuple.R

setConstructorS3("AromaUnitTotalCnBinarySetTuple", function(..., .setClass="AromaUnitTotalCnBinarySet") {
  extend(AromaMicroarrayDataSetTuple(..., .setClass=.setClass), c("AromaUnitTotalCnBinarySetTuple", uses("CopyNumberDataSetTuple")))
})


setMethodS3("as.AromaUnitTotalCnBinarySetTuple", "AromaUnitTotalCnBinarySetTuple", function(this, ...) {
  # Nothing do to
  this
})


setMethodS3("getListOfUnitNamesFiles", "AromaUnitTotalCnBinarySetTuple", function(this, ...) {
  sets <- getSets(this)
  lapply(sets, FUN=getUnitNamesFile)
})


setMethodS3("getUnitNamesFile", "AromaUnitTotalCnBinarySet", function(this, ...) {
  if (length(this) == 0) {
    throw("Cannot locate unit names file. Data set is empty: ", getFullName(this))
  }

  getUnitNamesFile(getOneFile(this), ...)
})

Try the aroma.core package in your browser

Any scripts or data that you put into this service are public.

aroma.core documentation built on June 25, 2024, 1:15 a.m.