#308 double chain removal

Called off.the.chain twice
BorchLab · Jan 18, 2024 · 43a4db3 · 43a4db3
1 parent 2d4e9eb
commit 43a4db3
Show file tree

Hide file tree

Showing 4 changed files with 835 additions and 3 deletions.
diff --git a/R/clonalCompare.R b/R/clonalCompare.R
@@ -75,9 +75,6 @@ clonalCompare <- function(input.data,
 
   #Loop through the list to get a proportional summary
   for (i in seq_along(input.data)) {
-    if (chain != "both") {
-      input.data[[i]] <- .off.the.chain(input.data[[i]], chain, cloneCall)
-    }
     tbl <- as.data.frame(table(input.data[[i]][,cloneCall]))
     tbl[,2] <- tbl[,2]/sum(tbl[,2])
     colnames(tbl) <- c("clones", "Proportion")