R/PairedPSCBSFile.R

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

setConstructorS3("PairedPSCBSFile", function(...) {
  extend(GenericDataFile(...), "PairedPSCBSFile")
})

setMethodS3("loadFit", "PairedPSCBSFile", function(this, ...) {
  pathname <- getPathname(this)
  fit <- loadObject(pathname)

  # Sanity check
  fit <- Arguments$getInstanceOf(fit, "PairedPSCBS")

  fit
}, protected=TRUE)


setMethodS3("loadObject", "PairedPSCBSFile", function(this, ...) {
  loadFit(this, ...)
})