Comment gérer une exception ?

Bonjour,

je fait une analyse discriminante quadratique (qda) : fonction qda dans la package MASS.

Lorsque le jeu de données est trop petit j'ai le message suivant :

Code:

---

1 2	> source("R/TestErr.R")

---

dans TestErr.R j'ai

Code:

---

1 2 3

# Construction du modele 1 model1<-qda(Temp~.,data=Donnees1)

---

le resultat est le suivant

Code:

---

1 2	Erreur dans qda.default(x, grouping, ...) : some group is too small for qda

---

Mon probleme et que j'ai fais d'autre analyse discriminante avant cette dernière et je voudrais que mon programme continu de s'exécuter pour continuer analyse discriminante sur d'autre jeu de données.
Il faudrait donc faire un systeme de gestion d'exception .

Quelqu'un a t il une solution à ce problème ?

Cdt

Bonjour,

As-tu regardé la fonction try() ?

Voici un squelette d'utilisation :

Code:

---

1 2 3 4 5 6 7 8 9

res <- try(ta_fonction_qui_peut_poser_probleme(args), TRUE) if (inherits(res, "try-error")){ # En cas d'erreur   } else { # Si pas d'erreur   }

---

Marc

Merci pour l'indication,

J'ai de mon cote finalement trouvé cette solution :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

ListTot <- list() Fin <- FALSE i<-1 while (Fin == FALSE){ i <- i+1 x=i/100 tryCatch( {ListTot[[i]] <- Analyse(x, ListData)}, error = function(ex) {Fin <<- TRUE;}) }

---

Je ne sais pas si c'est ce qu'il y a de mieux mais ça marche.
Si il y a mieux n'hésitez pas à intervenir.

Cdt