temporarily converted function to R

Qile0317 · Jul 16, 2023 · 7cf5d78 · 7cf5d78
1 parent f3646be
commit 7cf5d78
Show file tree

Hide file tree

Showing 3 changed files with 16 additions and 26 deletions.
diff --git a/R/get_clone_sizes.R b/R/get_clone_sizes.R
@@ -22,7 +22,22 @@ add_raw_clone_sizes <- function(apotc_obj, integrated_seurat_obj) {
   apotc_obj
 }
 
-# multiply all tables in a raw clonotype freq list by a scale factor and sqrt
+get_transformed_clone_sizes <- function(
+  sizelist, clone_scale_factor, num_clusters
+) {
+  output_sizes <- vector("list", num_clusters)
+  for (i in 1:num_clusters) {
+    curr_sizes <- sizelist[[i]]
+    if (is.null(curr_sizes)) {
+      output_sizes[[i]] <- list()
+      next
+    }
+    output_sizes[[i]] <- sqrt(curr_sizes) * clone_scale_factor
+  }
+  output_sizes
+}
+
+# multiply all tables in a raw clonotype freq list by a scale factor and sqrt (for the next update)
 get_processed_clone_sizes <- function(apotc_obj) {
   raw_tabled_clone_sizes <- apotc_obj@clone_sizes
   processed_sizes <- vector("list", apotc_obj@num_clusters)

diff --git a/src/get_clone_sizes.h b/src/get_clone_sizes.h
diff --git a/src/run_all.cpp b/src/run_all.cpp
@@ -12,7 +12,6 @@
 
 // function scripts
 #include "utils.h"
-#include "get_clone_sizes.h"
 #include "cpp_circle_layout.h"
 #include "repulsion.h"