has_balanced_replicates bugfix

snaketron · Apr 12, 2024 · dc7beaa · dc7beaa
1 parent b6da936
commit dc7beaa
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: IgGeneUsage
 Type: Package
 Title: Differential gene usage in immune repertoires
-Version: 1.17.24
+Version: 1.17.25
 Authors@R: 
     person(given = "Simo",  
            family = "Kitanovski",

diff --git a/R/utils_usage.R b/R/utils_usage.R
@@ -145,7 +145,7 @@ get_usage <- function(u) {
   }
   individual_ids <- as.numeric(as.factor(individual_names))
   replicate_ids <- as.numeric(as.factor(replicate_names))
-  tr <- table(replicate_ids)
+  tr <- table(paste0(individual_ids, '|', replicate_ids))
   has_balanced_replicates <- ifelse(test = all(tr==tr[1]), yes=TRUE, no=FALSE)
 
   cos <- get_condition_of_sample(sample_ids = sample_ids, m = m)