TP2

\documentclass{article}

\begin{document}
\SweaveOpts{concordance=TRUE}

<<>>=
library(FactoMineR)
library(factoextra)
data("iris")
iris

PCA_iris= PCA(iris,quali.sup = 5,graph= TRUE,ncp=2)
@

<<>>=
PCA_iris$eig
@



<<fig=TRUE>>=
fviz_eig(PCA_iris)
@

<<fig=TRUE>>=
plot(PCA_iris,choix="ind")
@

<<>>=
PCA_iris$ind$cor

PCA_iris$ind$cos2

PCA_iris$ind$contrib

@



\section{analyse des variables}

<<fig=TRUE>>=
plot(PCA_iris,choix="var")
@

\paragraph{Les tableaux ci-dessus affichent respectivement les coordonnees des variables
(coefficients de correlation), les qualites de representation des variables et les
leurs contributions aux composantes principales.}

<<>>=
PCA_iris$var$cor

PCA_iris$var$cos2

PCA_iris$var$contrib



@


\end{document}