data(achievement)
X <- achievement[,1:3]
Y <- achievement[,4:ncol(achievement)]
Rxy <- cor(X,Y)
Rxx <- cor(X)
Ryy <- cor(Y)
Results <- FitAllModelsRxy(Rxy,Rxx,Ryy,verbose=FALSE,
eps=1e-08,ndim=2)
print(round(Results,6))
Run the code above in your browser using DataLab