library(plsgenomics)
data(SRBCT)
mydata<-SRBCT$X
mydata<-mydata[1:50,1:5]
groups<-as.factor(SRBCT$Y)[1:50]
mat.to.diag1<-new.cov(x=mydata,cls=groups,A=diag(ncol(mydata)))
mgpca(mat.to.diag=mat.to.diag1,mat.x=as.matrix(mydata),
cls=groups,Plot=TRUE,ncomp=2,center = TRUE,scale = TRUE)
Run the code above in your browser using DataLab