search for: yscore

...y<-scale(y,center=center,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.y...