R/proteomicsExprsData.Method.R

setMethod("proteomicsExprsData",signature=signature(Data="aclinicalProteomicsData"),

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

}
)

Try the clippda package in your browser

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

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