# NOT RUN {
# On PCA
bp <- PCA(efourier(bot))
scree(bp)
scree_min(bp, 0.99)
scree_min(bp, 1)
scree_plot(bp)
scree_plot(bp, 1:5)
# on LDA, it uses svd
bl <- LDA(PCA(opoly(olea)), "var")
scree(bl)
# }
Run the code above in your browser using DataLab