R/metadata.R

#' @rdname SilacProteomicsExperiment-accessors
#' @aliases metadata,SilacProteomicsExperiment-method
#' @importMethodsFrom S4Vectors metadata
#' @export
setMethod('metadata', 'SilacProteomicsExperiment', function(x, ...){

  return(x@metadata)

})

#' @rdname SilacProteomicsExperiment-accessors
#' @aliases metadata<-,SilacProteomicsExperiment-method
#' @importMethodsFrom S4Vectors metadata
#' @export
setMethod('metadata<-', 'SilacProteomicsExperiment', function(x, ..., value){

  x@metadata <- value
  validObject(x)
  x <- synchronizeMetaoptions(x)
  return(x)

})

Try the pulsedSilac package in your browser

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

pulsedSilac documentation built on Nov. 8, 2020, 5:13 p.m.