SGCCA and astar values

[llrs]

Why the astar values of some calculus:

RGCCA/R/sgcca.R

Line 242 in 911d00a

for (b in 1:J) astar[[b]][,n] <- sgcca.result$a[[b]] - astar[[b]][,(1:n-1),drop=F] %*% drop( t(a[[b]][,n]) %*% P[[b]][,1:(n-1),drop=F] )

are used in another:

RGCCA/R/sgcca.R

Line 257 in 911d00a

astar[[b]][,N+1] <- sgcca.result$a[[b]] - astar[[b]][,(1:N),drop=F] %*% drop( t(a[[b]][,(N+1)]) %*% P[[b]][,1:(N),drop=F] )

?