powered by
spca
sipca
splsda
cor.sparse(x)
"spca"
"sipca"
"splsda"
plsda
# sPCA require(mixOmics) data(liver.toxicity) spca.rat <- spca(liver.toxicity$gene,ncomp=2,keepX=rep(20,2)) cor.sparse(spca.rat)
Run the code above in your browser using DataLab