removed duplicate ppmdev column in DIMS/preprocessing/collect_filled_functions.R

Author: mraves2

DIMS/preprocessing/collect_filled_functions.R

@@ -129,7 +129,7 @@ order_columns_peakgrouplist <- function(peakgroup_list) {
 
   original_colnames <- colnames(peakgroup_list)
   mass_columns <- c(grep("mzm", original_colnames), grep("nrsamples", original_colnames))
-  descriptive_columns <- c(grep("assi_HMDB", original_colnames):grep("avg.int", original_colnames), grep("ppmdev", original_colnames))
+  descriptive_columns <- grep("assi_HMDB", original_colnames):grep("avg.int", original_colnames)
   intensity_columns <- c((grep("nrsamples", original_colnames) + 1):(grep("assi_HMDB", original_colnames) - 1))
   # if no Z-scores have been calculated, the following two variables will be empty without consequences for outlist_total
   control_columns <- grep ("ctrls", original_colnames)