Implementing beta fitting during peak filling

sneumann · Nov 21, 2023 · 42e0ab7 · 42e0ab7
1 parent db92755
commit 42e0ab7
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/R/functions-XCMSnExp.R b/R/functions-XCMSnExp.R
@@ -296,8 +296,7 @@ dropGenericProcessHistory <- function(x, fun) {
  if (is.na(meanMz)) meanMz <- mtx[maxi[1], 2]
  res[i, "mz"] <- meanMz
 
- # if(verboseBetaColumns){
- if(TRUE){
+ if("beta_cor"%in%cn){
  beta_vals <- .get_beta_values(mtx[,3])
  res[i, "beta_cor"] <- beta_vals$best_cor
  res[i, "beta_snr"] <- beta_vals$beta_snr