# NOT RUN {
data(wine)
wine.pca <- prcomp(wine, scale. = TRUE)
print(ggscreeplot(wine.pca))
print(ggbiplot(wine.pca, obs.scale = 1, var.scale = 1, groups = wine.class, ellipse = TRUE, circle = TRUE))
# }
Run the code above in your browser using DataLab