R/Pm.R

Defines functions Pm

Documented in Pm

Pm<-function(M, Sx, seed){
  M%*%corpcor::pseudoinverse(t(M)%*%Sx%*%M)%*%t(M)%*%seed
}

Try the seedCCA package in your browser

Any scripts or data that you put into this service are public.

seedCCA documentation built on Aug. 30, 2017, 5:09 p.m.