R/nrow.R

#' @rdname SilacProteomicsExperiment-accessors
#' @aliases nrow,SilacProteomicsExperiment-method
#' @usage NULL
#' @export
setMethod('nrow', 'SilacProteomicsExperiment', function(x){

  return(c(protein = nrow(x@SilacProteinExperiment),
           peptide = nrow(x@SilacPeptideExperiment)))

})
marcpaga/pulsedSilac documentation built on March 11, 2020, 8:49 p.m.