# Unsupervised example
data(ham)
X=ham$X
block=ham$block
res.mbpca <- MBPCA(X,block, name.block=names(block))
MBplotScores(res.mbpca)
# Supervised example
data(ham)
X=ham$X
block=ham$block
Y=ham$Y
res.mbpls <- MBPLS(X, Y, block, name.block=names(block))
MBplotScores(res.mbpls)
Run the code above in your browser using DataLab