search for: ycoe

...enter,scale=scale) ncor<-length(object$cor) #number of canonical variables nx<-dim(object$xco)[1] #number of X ny<-dim(object$yco)[1] #number of Y xscore<-x%*%(object$xcoe[,1:ncor]) colnames(xscore)<-paste("con",1:ncor,"x",sep=".") yscore<-y%*%(object$ycoe[,1:ncor]) colnames(yscore)<-paste("con",1:ncor,"y",sep=".") #canonical score eigenvalue<-object$cor^2/(1-object$cor^2) #eigenvalue/lambda x.xscore<-cor(x,xscore) y.yscore<-cor(y,yscore) #canonical loadings y.xscore<-cor(y,xscore) x.yscore<-cor(x,yscor...