comparison lib.r @ 18:517d4375db53 draft

planemo upload for repository https://github.com/workflow4metabolomics/xcms commit e3956bf3393be5bff67b4d90f1007da00b0ec9b2-dirty
author lecorguille
date Thu, 04 Oct 2018 10:34:58 -0400
parents b62808a2a008
children 41cf6f56d1b6
comparison
equal deleted inserted replaced
17:ea974024a6c6 18:517d4375db53
184 dev.off() 184 dev.off()
185 } 185 }
186 186
187 #@author G. Le Corguille 187 #@author G. Le Corguille
188 # value: intensity values to be used into, maxo or intb 188 # value: intensity values to be used into, maxo or intb
189 getPeaklistW4M <- function(xdata, intval="into", convertRTMinute=F, numDigitsMZ=4, numDigitsRT=0, naTOzero=T, variableMetadataOutput, dataMatrixOutput) { 189 getPeaklistW4M <- function(xdata, intval="into", convertRTMinute=F, numDigitsMZ=4, numDigitsRT=0, naTOzero=T, variableMetadataOutput, dataMatrixOutput, sampleNamesList) {
190 dataMatrix <- featureValues(xdata, method="medret", value=intval) 190 dataMatrix <- featureValues(xdata, method="medret", value=intval)
191 colnames(dataMatrix) <- tools::file_path_sans_ext(colnames(dataMatrix)) 191 colnames(dataMatrix) <- make.names(tools::file_path_sans_ext(colnames(dataMatrix)))
192 dataMatrix = cbind(name=groupnamesW4M(xdata), dataMatrix) 192 dataMatrix = cbind(name=groupnamesW4M(xdata), dataMatrix)
193 variableMetadata <- featureDefinitions(xdata) 193 variableMetadata <- featureDefinitions(xdata)
194 colnames(variableMetadata)[1] = "mz"; colnames(variableMetadata)[4] = "rt" 194 colnames(variableMetadata)[1] = "mz"; colnames(variableMetadata)[4] = "rt"
195 variableMetadata = data.frame(name=groupnamesW4M(xdata), variableMetadata) 195 variableMetadata = data.frame(name=groupnamesW4M(xdata), variableMetadata)
196 196