R/proteomicspData.Generic.R

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

setGeneric("proteomicspData",

function (Data, ...) 
{    
varclass <- Data@variableClass
    PhenoInfo <- data.frame(Data@phenotypicData)
       no.variables <- length(varclass)
         for(i in 1:no.variables) {
            if(varclass[i] == "numeric") {
         PhenoInfo[,i]= as.numeric(as.vector(PhenoInfo[,i]))
} 

else

  if(varclass[i] == "character") {
    PhenoInfo[,i] <- as.character(as.vector(PhenoInfo[,i]))
 }

else

  if(varclass[i] == "factor") {
    PhenoInfo[,i] <- PhenoInfo[,i]
}

PhenoInfo <- PhenoInfo
}

PhenoInfo

standardGeneric("proteomicspData")
}

)