R/setMethods.R

#' @rdname individual
setReplaceMethod("individual",
                 signature = signature(object = "deSet"),
                 function(object, value) {
                   object@individual <- value
                   validObject(object)
                   object
                 })
#' @rdname qvalueObj
setReplaceMethod("qvalueObj",
                 signature = signature(object = "deSet"),
                 function(object, value) {
                   object@qvalueObj <- value
                   validObject(object)
                   object
                 })
#' @rdname fullModel
setReplaceMethod("fullModel",
                 signature = signature(object = "deSet"),
                 function(object, value) {
                   object@full.model <- value
                   fullMatrix(object) <- model.matrix(object = value, data = object)
                   validObject(object)
                   object
                 })
#' @rdname nullModel
setReplaceMethod("nullModel",
                 signature = signature(object = "deSet"),
                 function(object, value) {
                   object@null.model <- value
                   nullMatrix(object) <- model.matrix(object = value, data = object)
                   validObject(object)
                   object
                 })
#' @rdname fullMatrix
setReplaceMethod("fullMatrix",
                 signature = signature(object = "deSet"),
                 function(object, value) {
                   object@full.matrix <- value
                   validObject(object)
                   object
                 })
#' @rdname nullMatrix
setReplaceMethod("nullMatrix",
                 signature = signature(object = "deSet"),
                 function(object, value) {
                   object@null.matrix <- value
                   validObject(object)
                   object
                 })

Try the edge package in your browser

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

edge documentation built on May 6, 2019, 4:58 a.m.