Remove baseline when estimating

sipss · Dec 5, 2023 · 1c7412b · 1c7412b
1 parent 30d8a40
commit 1c7412b
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/R/baseline-GCIMSDataset.R b/R/baseline-GCIMSDataset.R
@@ -11,12 +11,12 @@
 setMethod(
   "estimateBaseline",
   "GCIMSDataset",
-  function(object, dt_peak_fwhm_ms, dt_region_multiplier, rt_length_s) {
+  function(object, dt_peak_fwhm_ms, dt_region_multiplier, rt_length_s, remove =TRUE) {
 
     delayed_op <- DelayedOperation(
       name = "estimateBaseline",
       fun = estimateBaseline,
-      params = list(dt_peak_fwhm_ms = dt_peak_fwhm_ms, dt_region_multiplier = dt_region_multiplier, rt_length_s = rt_length_s)
+      params = list(dt_peak_fwhm_ms = dt_peak_fwhm_ms, dt_region_multiplier = dt_region_multiplier, rt_length_s = rt_length_s, remove = remove)
     )
     object$appendDelayedOp(delayed_op)
     # We recompute these, but  maybe we could just reset them to zero...

diff --git a/R/baseline-GCIMSSample.R b/R/baseline-GCIMSSample.R
@@ -15,7 +15,7 @@
 #' @export
 methods::setMethod(
   "estimateBaseline", "GCIMSSample",
-  function(object, dt_peak_fwhm_ms, dt_region_multiplier, rt_length_s) {
+  function(object, dt_peak_fwhm_ms, dt_region_multiplier, rt_length_s, remove) {
     rt <- rtime(object)
     dt <- dtime(object)
     int <- intensity(object)
@@ -28,6 +28,9 @@ methods::setMethod(
     rt_basel <- estimate_baseline_tr(int - dt_basel, region_size = rt_region_size_pts)
     full_basel <- rt_basel + dt_basel
     baseline(object) <- full_basel
+    if (remove){
+      object@data <- int - full_basel
+    }
     object
   }
 )