# Unsupervised example
data(ham)
X=ham$X
block=ham$block
res.mbpca <- MBPCA(X,block, name.block=names(block))
MBplotBlocks(res.mbpca,which="explained.blocks&Y")
MBplotBlocks(res.mbpca,which="scree")
MBplotBlocks(res.mbpca,which="structure")
MBplotBlocks(res.mbpca,which="blocks.axes")
# Supervised example
data(ham)
X=ham$X
block=ham$block
Y=ham$Y
res.mbpls <- MBPLS(X, Y, block, name.block=names(block))
MBplotBlocks(res.mbpls,which="explained.blocks&Y")
MBplotBlocks(res.mbpls,which="scree")
MBplotBlocks(res.mbpls,which="structure")
MBplotBlocks(res.mbpls,which="blocks.axes")
Run the code above in your browser using DataLab