library(colorRamps)
data(MTBLS579)
# MPCA with mean-centered and scaled data
MTBLS579_mpca <- m_prcomp(MTBLS579)
# Negative loadings of the first principal component
# \donttest{
plot_loading(MTBLS579_mpca, type = "n", pc = 1,
color.palette = matlab.like)
# Positive loadings of the first principal component
plot_loading(MTBLS579_mpca, type = "p", pc = 1,
color.palette = matlab.like)
# }
Run the code above in your browser using DataLab