powered by
orthmax2(A1, A2, gam1, gam2, conv)
A1
A2
varim
X <- matrix(rnorm(8*3),ncol=3) Y <- matrix(rnorm(6*3),ncol=3) orthXY <- orthmax2(X,Y,1,2) # rotated version of X orthXY$B1 # rotated version of Y orthXY$B2 # rotation matrix orthXY$T
Run the code above in your browser using DataLab