R/NULL-methods.R

Defines functions mkNumericHandlerMethod

###
### $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)

Try the SuperCurve package in your browser

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

SuperCurve documentation built on Nov. 17, 2017, 2:28 p.m.