- N = 30 #number of matrices
- d_K_list = list(c(2,2), c(5,3))
- for (i in 1:2)
- {
- d = d_K_list[[i]][1]
- K = d_K_list[[i]][2]
-
- # 1] Generate matrix series
- matrices_permut = .generateMatrices(d,K,N,noise=FALSE)
-
- # 2] Call align function with mode=approx1
- matrices_aligned =
- alignMatrices(matrices_permut[2:N], ref=matrices_permut[[1]], ls_mode="approx1")
-
- # 3] Check alignment
- for (j in 2:N)
- expect_equal(matrices_aligned[[j-1]], matrices_permut[[1]])
-
- # 2bis] Call align function with mode=approx2
- matrices_aligned =
- alignMatrices(matrices_permut[2:N], ref=matrices_permut[[1]], ls_mode="approx2")
-
- # 3bis] Check alignment
- for (j in 2:N)
- expect_equal(matrices_aligned[[j-1]], matrices_permut[[1]])
- }
+ N <- 30 #number of matrices
+ d_K_list <- list(c(2,2), c(5,3))
+ for (i in 1:2)
+ {
+ d <- d_K_list[[i]][1]
+ K <- d_K_list[[i]][2]
+
+ # 1] Generate matrix series
+ Ms <- .generateMatrices(d, K, N, noise=FALSE)
+
+ # 2] Call align function with mode=approx1
+ aligned <- alignMatrices(Ms[2:(N+1)], ref=Ms[[1]], ls_mode="approx1")
+
+ # 3] Check alignment
+ for (j in 1:N)
+ expect_equal(aligned[[j]], Ms[[1]])
+
+ # 2bis] Call align function with mode=approx2
+ aligned <- alignMatrices(Ms[2:(N+1)], ref=Ms[[1]], ls_mode="approx2")
+
+ # 3bis] Check alignment
+ for (j in 1:N)
+ expect_equal(aligned[[j]], Ms[[1]])
+ }