added a forgotten )

sistm · Jan 10, 2025 · a43f7f5 · a43f7f5
1 parent 79e870b
commit a43f7f5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/cit_gsa.R b/R/cit_gsa.R
@@ -429,7 +429,7 @@ cit_gsa <- function(M,
       temp <- indi_pi_gs_tab - matrix(prop_gs_vec, nrow=n_gs_vec, ncol=n_g_t, byrow=TRUE)
 
         # new prop/new pi computation = the one of the gene set, here it's a matrix
-      new_prop <- apply(temp, MARGIN=2, function(colvec){colvec%*%temp}/n_gs_vec + 
+      new_prop <- apply(temp, MARGIN=2, function(colvec){colvec%*%temp})/n_gs_vec + 
                         sapply(prop_gs_vec, function(s){s*prop_gs_vec})
 
       Sigma2 <- 1/n * tcrossprod(H) %x%  (new_prop - prop_gs_vec %x%  t(prop_gs_vec))