R/setCustomFindCdf.R

Defines functions setCustomFindCdf

Documented in setCustomFindCdf

setCustomFindCdf <- function(fcn, ...) {
  # Argument 'fcn':
  if (!is.function(fcn)) {
    stop("Argument 'fcn' is not a function: ", mode(fcn))
  }

  settings <- getOption("affxparser.settings")
  if (is.null(settings))
    settings <- list()

  oldFcn <- settings$methods$findCdf
  settings$methods$findCdf <- fcn
  options("affxparser.settings"=settings)

  invisible(oldFcn)
} # setCustomFindCdf()

Try the aroma.affymetrix package in your browser

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

aroma.affymetrix documentation built on May 29, 2024, 4:32 a.m.