Update Allfuncs.R

wgmao · Jul 16, 2019 · 5665ccb · 5665ccb
1 parent 3fa0c31
commit 5665ccb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/Allfuncs.R b/R/Allfuncs.R
@@ -477,7 +477,7 @@ PLIER=function(data, priorMat,svdres=NULL, k=NULL, L1=NULL, L2=NULL, L3=NULL,  f
     message("using random start")
     set.seed(rseed)
     B=t(apply(B, 1, sample))
-    Z=t(apply(Z,2,sample))
+    Z=apply(Z,2,sample)
   }