# see examples in \code{\link{mbpca}}
data("NCI60_4arrays")
moa <- mbpca(NCI60_4arrays, ncomp = 10, k = "all", method = "globalScore", option = "lambda1",
center=TRUE, scale=FALSE)
dst <- distMoa(moa)
Run the code above in your browser using DataLab