data(achievement)
X <- achievement[,1:3]
Y <- achievement[,4:ncol(achievement)]
Rxy <- cor(X,Y)
Rxx <- cor(X)
Ryy <- cor(Y)
out.delta <- FitRxy(Rxy,solve(Rxx),solve(Ryy),
adjust="delta",eps=1e-08,
verbose=FALSE)
Rxy.hat <- out.delta$delta
rmse.rxy(Rxy,Rxy.hat,R=solve(Rxx),C=solve(Ryy))
Run the code above in your browser using DataLab