Another namespace fix.

stephenslab · Jan 19, 2024 · 398f4d0 · 398f4d0
1 parent ff1ba80
commit 398f4d0
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Encoding: UTF-8
 Type: Package
 Package: fastglmpca
-Version: 0.1-97
+Version: 0.1-98
 Date: 2024-01-19
 Title: Fast Algorithms for Generalized Principal Component Analysis 
 Authors@R: c(person("Eric","Weine",role=c("aut","cre"),

diff --git a/R/fit.R b/R/fit.R
@@ -479,8 +479,7 @@ update_glmpca_pois <- function (LL, FF, Y, Y_T, update_indices_l,
     update_factors_faster_parallel(
         L_T = t(FF),
         FF = LLnew,
-        M = as.matrix(MatrixExtra::tcrossprod(FF[update_indices_l,,
-                                              drop = FALSE],Y)),
+        M = as.matrix(tcrossprod(FF[update_indices_l,,drop = FALSE],Y)),
         update_indices = i,
         num_iter = control$num_ccd_iter,
         line_search = control$line_search,
@@ -504,8 +503,7 @@ update_glmpca_pois <- function (LL, FF, Y, Y_T, update_indices_l,
     update_factors_faster_parallel(
       L_T = t(LL),
       FF = FFnew,
-      M = as.matrix(MatrixExtra::tcrossprod(LL[update_indices_f,,
-                                            drop = FALSE],Y_T)),
+      M = as.matrix(tcrossprod(LL[update_indices_f,,drop = FALSE],Y_T)),
       update_indices = i,
       num_iter = control$num_ccd_iter,
       line_search = control$line_search,