Mercurial > repos > recetox > recetox_aplcms_compute_clusters

comparison utils.R @ 1:092bbb03a217 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/RECETOX/galaxytools/tree/master/tools/recetox_aplcms commit 4254c6f6f05915ceab5af5d7040ac2c44a8364b4
author recetox
date Mon, 03 Apr 2023 14:56:58 +0000
parents 82737757f3d5
children ce00e1d03c31
comparison
equal deleted inserted replaced
0:82737757f3d5 1:092bbb03a217
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 }