editorial changes

R/ume_utilities.R

@@ -63,7 +63,6 @@ ume_filter_formulas <- function(mfd, msg = FALSE, ...){
 
 # to do: make sure that step 3 is only executed if one of the arguments is not null
 
-
   mfd_filt <- filter_mf_data(mfd = mfd, ...)
 
   if(msg==TRUE) cat("\nNumber of formulas after filter process step 1: ", mfd_filt[, .N], "\n")
@@ -73,7 +72,7 @@ ume_filter_formulas <- function(mfd, msg = FALSE, ...){
   # Be aware that this filter step might not change the dataset because the filter steps before
   # already excluded formulas outside the norm_int threshold
 
-  mfd_filt <- filter_int(mfd = mfd_filt, ...)
+  mfd_filt <- filter_int(mfd = mfd_filt, ...) # This filter includes a normalization after filtering
 
   if(msg==TRUE) cat("\nNumber of formulas after int filter process step 2: ", mfd_filt[, .N], "\n")