From 843a5c8712d0c25ccedb152eb6ed80e6478da12b Mon Sep 17 00:00:00 2001
From: Akriebs <54408208+Akriebs@users.noreply.github.com>
Date: Mon, 14 Jun 2021 15:22:52 -0400
Subject: [PATCH] Revert "U algorithm"

---
 R/liger.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/liger.R b/R/liger.R
index 2fccf2ed..c8620cad 100755
--- a/R/liger.R
+++ b/R/liger.R
@@ -6611,7 +6611,7 @@ optimize_UANLS = function(object, k=30,lambda= 5, max.iters=30,nrep=1,thresh=1e-
   unshared <- c()
   ulist <- c()
   for (i in 1:length(object@var.unshared.features)){
-    if(length(object@var.unshared.features[[i]])){
+    if(!is.null(object@var.unshared.features[[i]])){
       u_dim[[i]] <- dim(object@scale.unshared.data[[i]])
       names(u_dim[i]) <- i
       unshared = c(unshared, i)