diff --git a/R/data-model.R b/R/data-model.R
index 79f177d37354aaadf4b834443c7f5a114b174914..331b146c13b2415f53567c9ecf04402433065e3b 100644
--- a/R/data-model.R
+++ b/R/data-model.R
@@ -113,3 +113,19 @@ empty_spectra_table <- function() {
     setkey(r,precid,scan)
     r
 }
+
+
+## Based on the `comprehensive' and `qa' tabs, greate `summ'.
+gen_summ <- function(comp,qa) {
+    comp_cols <- intersect(SUMM_COLS,colnames(comp))
+    rdcomp <- comp[,..comp_cols]
+    data.table::setkeyv(rdcomp,BASE_KEY)
+    summ <- qa[rdcomp,nomatch=F] #We changed `nomatch' cases from NA
+                                 #to F, because NA does not work well
+                                 #with X == F condition.
+    ## flgs <- c(QA_FLAGS,"ms2_sel")
+    ## summ[is.na(qa_ms1_exists),(flgs):=F]
+    data.table::setkeyv(summ,SUMM_KEY)
+    summ[.(F),c("qlt_ms1","qlt_ms2"):=0.,on="qa_ms1_exists"]
+    summ
+}
diff --git a/R/mix.R b/R/mix.R
index d0dc25558df078b53ad93f2c652d65a9f864abb2..105b02550655300756fa91d6bbde59f08e6f19d4 100644
--- a/R/mix.R
+++ b/R/mix.R
@@ -797,20 +797,6 @@ analyse_extracted_data_old <- function(extr,prescreen_param) {
     res
 }
 
-## Based on the `comprehensive' and `qa' tabs, greate `summ'.
-gen_summ <- function(comp,qa) {
-    comp_cols <- intersect(SUMM_COLS,colnames(comp))
-    rdcomp <- comp[,..comp_cols]
-    data.table::setkeyv(rdcomp,BASE_KEY)
-    summ <- qa[rdcomp,nomatch=F] #We changed `nomatch' cases from NA
-                                 #to F, because NA does not work well
-                                 #with X == F condition.
-    ## flgs <- c(QA_FLAGS,"ms2_sel")
-    ## summ[is.na(qa_ms1_exists),(flgs):=F]
-    data.table::setkeyv(summ,SUMM_KEY)
-    summ[.(F),c("qlt_ms1","qlt_ms2"):=0.,on="qa_ms1_exists"]
-    summ
-}