# NOT RUN {
library("ggplot2")
data(MUD1)
res <- miaSpectra2D(MUD1)
# plotScores & plotScree use ggplot2 graphics
p1 <- plotScores(MUD1, res, tol = 1.0, ellipse = "cls")
p1 <- p1 + ggtitle("MIA Scores")
p1
p2 <- plotScree(res)
p2
# plotLoadings2D uses base graphics
MUD1a <- plotLoadings2D(MUD1, res,
load_lvls = seq(-90, 0, 10),
main = "MIA Comp. 1 Loadings"
)
# Selection of loading matrix levels can be aided by the following
# Use MUD1a$names to find the index of the loadings
inspectLvls(MUD1a,
which = 11, ylim = c(0, 80),
main = "Histogram of Loadings Matrix"
)
# }
Run the code above in your browser using DataLab