Update net.loads.R

hfgolino · Mar 8, 2024 · 86c1212 · 86c1212
1 parent 9d481ae
commit 86c1212
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/net.loads.R b/R/net.loads.R
@@ -574,7 +574,7 @@ experimental_loadings <- function(
 
 #' @noRd
 # Standardize loadings ----
-# Updated 29.02.2024
+# Updated 08.03.2024
 standardize <- function(unstandardized, loading.method, A, wc)
 {
 
@@ -601,7 +601,7 @@ standardize <- function(unstandardized, loading.method, A, wc)
     # Align loadings
     alignment <- fungible::faAlign(
       F1 = eigens$vectors[,community_sequence],
-      F2 = unstandardized[dimnames(A)[[2]],]
+      F2 = unstandardized
     )
 
     # Pre-compute absolute values for standardization