resources, mix: Fix loading initial state

* resources.R(MS1_ERR_COARSE,MS1_ERR_FINE): Updated.

(EIC_ERR,RT_EXTR_ERR,RT_SHIFT_ERR): Updated.

(MS2_INT_THOLD): Updated.

* mix.R(presc_conf): Updated.

R/mix.R

@@ -585,10 +585,10 @@ extr_conf <- function(m) {
 }
 
 presc_conf <- function(m) {
-    m$conf$prescreen <- list("ms1_int_thresh"=1e5,
-                             "ms2_int_thresh"=2.5e3,
-                             "s2n"=3,
-                             "ret_time_shift_tol"=0.5)
+    m$conf$prescreen <- list("ms1_int_thresh"=MS1_INT_THOLD,
+                             "ms2_int_thresh"=MS2_INT_THOLD,
+                             "s2n"=MS1_SN_FAC,
+                             "ret_time_shift_tol"=RT_SHIFT_ERR)
     m
 }
 

R/resources.R

@@ -103,14 +103,14 @@ SUMM_CHK_AUTO<-'AUTO'
 SUMM_CHK_MANL<-'MANUAL'
 
 
-MS1_ERR_COARSE<-0.5                     # Da
-MS1_ERR_FINE<- 5                       # ppm
-EIC_ERR <- 0.001                       # Da
-RT_EXTR_ERR<-0.5                       # min
-RT_SHIFT_ERR <- 0.5               # min
+MS1_ERR_COARSE<-"0.5 Da"                     # Da
+MS1_ERR_FINE<- "5 ppm"                       # ppm
+EIC_ERR <- "0.001 Da"                       # Da
+RT_EXTR_ERR<-"0.5 min"                       # min
+RT_SHIFT_ERR <- "0.5 min"               # min
 
 MS1_INT_THOLD <- 1e5
-MS2_INT_THOLD <- 5000.
+MS2_INT_THOLD <- 2500.
 
 MS1_SN_FAC <- 3.0