R/qPCRBatch-methods.R

In ReadqPCR: Read qPCR data

setMethod("exprs", signature = "qPCRBatch", definition = 
    function (object) assayDataElement(object, "exprs")
)

setReplaceMethod("exprs", signature = "qPCRBatch", definition = 
    function (object, value) assayDataElementReplace(object, "exprs", value)
)

setMethod("se.exprs", signature = "qPCRBatch", definition = 
  function (object) assayDataElement(object, "se.exprs")
)

setReplaceMethod("se.exprs", signature = "qPCRBatch", definition = 
  function (object, value) assayDataElementReplace(object, "se.exprs", value)
)

setGeneric("exprs.well.order",
    function(object)
    standardGeneric("exprs.well.order")
)

setGeneric("exprs.well.order<-",
    function(object, ..., value)
    standardGeneric("exprs.well.order<-")
)

setMethod("exprs.well.order", signature = "qPCRBatch", definition = 
    function (object) assayDataElement(object, "exprs.well.order")
)

setReplaceMethod("exprs.well.order", signature = "qPCRBatch", definition = 
    function (object, value) assayDataElementReplace(object, "exprs.well.order", value)
)

setMethod("effs", signature = "qPCRBatch", definition = 
          function (object) fData(object)[["effs"]]
)

setReplaceMethod("effs", signature = "qPCRBatch", definition = 
                 function (object, value) {
		   fData(object)[["effs"]] <-  value
		   return(object)
		 }
)

setMethod("se.effs", signature = "qPCRBatch", definition = 
          function (object) fData(object)[["se.effs"]]
)

setReplaceMethod("se.effs", signature = "qPCRBatch", definition = 
                 function (object, value) {
		   fData(object)[["se.effs"]] <-  value
		   return(object)
		 }
)