comparison utils.R @ 3:c69a12bfc2fb 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:57:30 +0000
parents 472dc85ce7c5
children 755ff0afaaff
comparison
equal deleted inserted replaced
2:472dc85ce7c5 3:c69a12bfc2fb
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 }