has_balanced_replicates bugfix

snaketron · snaketron · commit dc7beaa0f08e · 2024-04-12T16:08:49.000+02:00
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) 

Original file line number	Diff line number	Diff line change
`@@ -145,7 +145,7 @@ get_usage <- function(u) {`
`145`	`145`	`}`
`146`	`146`	`individual_ids <- as.numeric(as.factor(individual_names))`
`147`	`147`	`replicate_ids <- as.numeric(as.factor(replicate_names))`
`148`		`- tr <- table(replicate_ids)`
	`148`	`+ tr <- table(paste0(individual_ids, '\|', replicate_ids))`
`149`	`149`	`has_balanced_replicates <- ifelse(test = all(tr==tr[1]), yes=TRUE, no=FALSE)`
`150`	`150`
`151`	`151`	`cos <- get_condition_of_sample(sample_ids = sample_ids, m = m)`