Fix typo
authorBenjamin Auder <benjamin@auder>
Wed, 30 Oct 2019 14:15:50 +0000 (15:15 +0100)
committerBenjamin Auder <benjamin@auder>
Wed, 30 Oct 2019 14:15:50 +0000 (15:15 +0100)
reports/multistart.R

index 6f20436..6804b6b 100644 (file)
@@ -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)
-    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
 }