R/proteomicsExprsData.Generic.R

In clippda: A package for the clinical proteomic profiling data analysis

setGeneric("proteomicsExprsData",

function (Data, ...) {
    
rawData <- data.frame(Data@rawSELDIdata)

    rawData$SampleTag <- as.vector(rawData$SampleTag)

         rawData$Intensity <- as.numeric(as.vector(rawData$Intensity))

    rawData$Substance.Mass <- as.numeric(as.vector(rawData$Substance.Mass))

rawData

standardGeneric("proteomicsExprsData")

}
)