Fix typo

diff --git a/reports/multistart.R b/reports/multistart.R
index 6f20436..6804b6b 100644 (file)
--- a/reports/multistart.R
+++ b/reports/multistart.R
@@ -58,7 +58,7 @@ testMultistart <- function(N, n, d, K, p, beta, b, link, nstart, ncores)
                        fargs
     }, N=N, ncores=ncores, verbose=TRUE)
   for (i in 1:2)
                        fargs
     }, N=N, ncores=ncores, verbose=TRUE)
   for (i in 1:2)

-    res[[i]] <- alignMatrices(mr[[i]], ref=rbind(p,beta,b), ls_mode="exact")
+    res[[i]] <- alignMatrices(res[[i]], ref=rbind(p,beta,b), ls_mode="exact")

   res
 }
 
   res
 }