Update plot_cpdb.R

zktuong · Feb 17, 2024 · 3a36ec8 · 3a36ec8
1 parent bd084c9
commit 3a36ec8
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/plot_cpdb.R b/R/plot_cpdb.R
@@ -77,8 +77,8 @@ plot_cpdb <- function(
     colnames(tmp_pvals_mat) <- colnames(means_mat)
 
     # Copy the values from means_mat to tmp_pvals_mat
-    tmp_pvals_mat[, 1:col_start] <- means_mat[, 1:col_start]
-    tmp_pvals_mat[is.na(tmp_pvals_mat)] <- pvals_mat[is.na(tmp_pvals_mat)]
+    tmp_pvals_mat[, 1:(col_start - 1)] <- means_mat[, 1:(col_start - 1)]
+    tmp_pvals_mat[rownames(pvals_mat), colnames(pvals_mat)] <- pvals_mat
 
     if (degs_analysis) {
       tmp_pvals_mat[is.na(tmp_pvals_mat)] <- 0