search for: xcoe

...- cancor.index<-function(object,x,y,center=T,scale=F){ x<-scale(x,center=center,scale=scale) 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.xs...