Discussion :

[flourangel]

Bonjour,
Je souhaite faire une analyse discriminante linéaire mais j'ai trouvé un problème lors de la sélection des variables afin d'intégrer uniquement les variables pertinentes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
> library(klaR)
> library(MASS)
> #linear discriminant analysis
> huile.lda <- lda(variety ~ ., data = huile)
Message d'avis :
In lda.default(x, grouping, ...) : les variables sont collinéaires
> #prediction on the training set
> pred.lda <- predict(huile.lda,newdata=huile)
> #confusion matrix
> mc.lda <- table(huile$variety,pred.lda$class)
> #error rate
> print(1-sum(diag(mc.lda))/sum(mc.lda))
[1] 0.3968254
> #variable selection
> huile.forward <- greedy.wilks(variety ~ ., data = huile, niveau = 0.05)
Erreur dans summary.manova(e2, test = "Wilks") : residuals have rank 32 < 33

J'ai pas compris que signifie cet erreur, j'espère que vous pouvez m'aider.
Merci d'avance.