Discussion :

[Hydro999]

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 :

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

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

dans TestErr.R j'ai

Code :

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

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

le resultat est le suivant

Code :

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

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

[overmarc]

Bonjour,

As-tu regardé la fonction try() ?

Voici un squelette d'utilisation :

Code :

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

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

[Hydro999]

Merci pour l'indication,

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

Code :

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

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