- 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
- }
+# 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
+# }