-
- ################################################
- ### Regarder la SUITE
-# phi = runProcedure2()$phi
-# Phi2 = Phi
-# if (dim(Phi2)[1] == 0)
-# Phi[, , 1:k,] <- phi
-# else
-# {
-# Phi <- array(0, dim = c(p, m, kmax, dim(Phi2)[4] + dim(phi)[4]))
-# Phi[, , 1:(dim(Phi2)[3]), 1:(dim(Phi2)[4])] <<- Phi2
-# Phi[, , 1:k,-(1:(dim(Phi2)[4]))] <<- phi
-# }