ACP en R

[vialosia]

Bonjour

Est-ce que quelqu'un peut m'aider sur ce devoir, je suis bloqué à la question 3, merci d'avance
Voici ce que j'ai fait pour le moment:

rm(list=ls())

X <- matrix(c(1350,1588,1294,1222,1 585,1297,79,85,68,59,98,82,393 ,468,424,412,439,429,161,177,1 68,161,164,169,870,110,1050,93 0,1105,1080),nrow=6,ncol=5)
rownames(X)<-c("A","B","C","D","E","F")
colnames(X)<-c("var1","var2","var3","var4", "var5")
X
X<- scale(X, center=TRUE, scale=TRUE)
X
R<- cor(X)
R
lambda<- eigen(R)$values
vect<- eigen(R)$vectors
lambda
vect
-----

[umfred]

ce n'est pas dans ton cours ?
J'ai trouvé ce cours qui en parle http://www2.agroparistech.fr/IMG/pdf...oParisTech.pdf

[vialosia]

Merci pour votre réponse, si j'ai trouvé que c'était égal à la valeur propre de la première colonne divisée par la somme des valeurs propres, mais je ne sais pas comment le coder