# NOT RUN {
# The data
X <- as.matrix(iris[, 1:4])
# The aesthetics variables
mapvar <- data.frame(iris[, 5])
colnames(mapvar) <- "species"
ladle_res <- PCAladle(X)
# The estimate
summary(ladle_res)
# Plots of the components
ggplot(ladle_res)
ggplot(ladle_res, aes(color = species), mapvar = mapvar, which = "k")
# }
Run the code above in your browser using DataLab