if (FALSE) {
data(oils)
res <- sym.pca(oils, "centers")
sym.scatterplot(res$Sym.Components[, 1], res$Sym.Components[, 1],
labels = TRUE, col = "red", main = "PCA Oils Data"
)
sym.scatterplot3d(res$Sym.Components[, 1], res$Sym.Components[, 2],
res$Sym.Components[, 3],
color = "blue", main = "PCA Oils Data"
)
sym.scatterplot.ggplot(res$Sym.Components[, 1], res$Sym.Components[, 2],
labels = TRUE
)
sym.circle.plot(res$Sym.Prin.Correlations)
res <- sym.pca(oils, "classic")
plot(res, choix = "ind")
plot(res, choix = "var")
data(lynne2)
res <- sym.pca(lynne2, "centers")
sym.scatterplot(res$Sym.Components[, 1], res$Sym.Components[, 2],
labels = TRUE, col = "red", main = "PCA Lynne Data"
)
sym.scatterplot3d(res$Sym.Components[, 1], res$Sym.Components[, 2],
res$Sym.Components[, 3],
color = "blue", main = "PCA Lynne Data"
)
sym.scatterplot.ggplot(res$Sym.Components[, 1], res$Sym.Components[, 2],
labels = TRUE
)
sym.circle.plot(res$Sym.Prin.Correlations)
data(StudentsGrades)
st <- StudentsGrades
s.pca <- sym.pca(st)
plot(s.pca, choix = "ind")
plot(s.pca, choix = "var")
}
Run the code above in your browser using DataLab