Mercurial > repos > recetox > recetox_aplcms_recover_weaker_signals
comparison utils.R @ 3:30d04537d823 draft
planemo upload for repository https://github.com/RECETOX/galaxytools/tree/master/tools/recetox_aplcms commit 4254c6f6f05915ceab5af5d7040ac2c44a8364b4
| author | recetox | 
|---|---|
| date | Mon, 03 Apr 2023 14:54:58 +0000 | 
| parents | 0c56ad04560b | 
| children | 1d643a079220 | 
   comparison
  equal
  deleted
  inserted
  replaced
| 2:0c56ad04560b | 3:30d04537d823 | 
|---|---|
| 121 if ((any(is.na(sample_names))) || (length(unique(sample_names)) != length(sample_names))) { | 121 if ((any(is.na(sample_names))) || (length(unique(sample_names)) != length(sample_names))) { | 
| 122 stop(sprintf("Sample names absent or not unique - provided sample names: %s", | 122 stop(sprintf("Sample names absent or not unique - provided sample names: %s", | 
| 123 paste(sample_names, collapse = ", "))) | 123 paste(sample_names, collapse = ", "))) | 
| 124 } | 124 } | 
| 125 } | 125 } | 
| 126 | |
| 127 determine_sigma_ratios <- function(sigma_ratio_lim_min = NA, sigma_ratio_lim_max = NA) { | |
| 128 if (is.na(sigma_ratio_lim_min)) { | |
| 129 sigma_ratio_lim_min <- 0 | |
| 130 } | |
| 131 if (is.na(sigma_ratio_lim_max)) { | |
| 132 sigma_ratio_lim_max <- Inf | |
| 133 } | |
| 134 return(c(sigma_ratio_lim_min, sigma_ratio_lim_max)) | |
| 135 } | 
