R/NULL-methods.R

In SuperCurve: RPPA Analysis Package

###
### $Id: NULL-methods.R 951 2015-01-24 00:25:00Z proebuck $
###

require(methods)
options(warn=1)


##
## Methods
##


##-----------------------------------------------------------------------------
mkNumericHandlerMethod <- function(methodName) {
    stopifnot(is.character(methodName) && length(methodName) == 1)

    ##-------------------------------------------------------------------------
    setMethod(methodName,
        signature(object="NULL"),
        function(object) {
            NA_real_
        })
}


methodNames <- c("normalize", "qcprob")
sapply(methodNames, mkNumericHandlerMethod)
rm(mkNumericHandlerMethod)