immunomind · Alexander230 · Jan 19, 2023 · Jan 20, 2023 · Jan 23, 2023
diff --git a/NAMESPACE b/NAMESPACE
@@ -13,6 +13,7 @@ S3method(vis,immunr_exp_count)
 S3method(vis,immunr_exp_len)
 S3method(vis,immunr_exp_vol)
 S3method(vis,immunr_gene_usage)
+S3method(vis,immunr_gini)
 S3method(vis,immunr_ginisimp)
 S3method(vis,immunr_gu_matrix)
 S3method(vis,immunr_hclust)

diff --git a/R/tools.R b/R/tools.R
@@ -341,6 +341,18 @@ rename_column <- function(.data, .old, .new) {
 }
 
 
+matrix_to_df <- function(.data) {
+  data.frame(Sample = row.names(.data), Value = .data[, 1])
+}
+
+
+transpose_gene_usage <- function(.data) {
+  row.names(.data) <- .data[[1]]
+  .data <- t(as.matrix(.data[2:ncol(.data)]))
+  .data
+}
+
+
 #' Apply function to each pair of data frames from a list.
 #'
 #' @concept utility_public

diff --git a/R/vis.R b/R/vis.R
diff --git a/man/vis.immunr_chao1.Rd b/man/vis.immunr_chao1.Rd
diff --git a/man/vis.immunr_clonal_prop.Rd b/man/vis.immunr_clonal_prop.Rd
diff --git a/man/vis.immunr_exp_vol.Rd b/man/vis.immunr_exp_vol.Rd
diff --git a/man/vis.immunr_kmeans.Rd b/man/vis.immunr_kmeans.Rd
diff --git a/man/vis.immunr_mds.Rd b/man/vis.immunr_mds.Rd
diff --git a/man/vis_bar.Rd b/man/vis_bar.Rd
diff --git a/man/vis_box.Rd b/man/vis_box.Rd
diff --git a/man/vis_public_clonotypes.Rd b/man/vis_public_clonotypes.Rd
diff --git a/man/vis_textlogo.Rd b/man/vis_textlogo.Rd