Stocker valeur boucle

Version imprimable

Bonjour à tous,

j'utilise plusieurs boucles pour parcourir mes arguments et ensuite faire des requêtes avec ces arguments

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
liste_arg2=list('2009','2010','2011','2012')
liste_arg1=list('CRD','Verst','OU','ET')
liste_arg3=list('Mars','Juin','Sept','Dec')
 
resultat_nb_a=0
resultat_nb_b=0
resultat_nb_a_dans_b=0
 
position=1
for (i in 1:length(liste_arg2))
{
arg2=liste_arg2[[i]]
 
for (j in 1:length(liste_arg3))
	{
		arg2=paste(liste_arg3[[j]],"_",liste_arg2[[i]],sep="")
		print(arg2)
 
		for (k in 1:length(liste_arg1))
		{
 
			arg1=paste(arg2,'_',liste_arg1[[k]],sep="")
			print(arg1)
 
			texte3=paste("SELECT COUNT(",arg1,")"," FROM Mod",sep="")
			texte4=paste("SELECT COUNT(",arg2,")"," FROM Vrai",sep="")
			texte5=paste("SELECT COUNT(",arg1,")"," FROM Mod WHERE ",arg1," IN (SELECT ",arg2," FROM Vrai)",sep="")
 
			print(texte3)
			nb_a=sqldf(texte3)
 
			print(texte4)
			nb_b=sqldf(texte4)
 
			print(texte5)
			nb_a_dans_b=sqldf(texte5)
 
 
			resultat_nb_a[position]=nb_a
			resultat_nb_b[position]=nb_b
			resultat_nb_a_dans_b[position]=nb_a_dans_b
			position=position+1
 
		}	
	}
}
 
resultat_nb_a
resultat_nb_b
resultat_nb_a_dans_b

Pour une année, j'ai 4 mois, et pour chaque mois,4 tests.

J'aimerai savoir si c'est possible de stocker mes résultats proprement dans un tableau?

02/05/2013, 15h49
Sengar

Oh god shoking 8O
Du SQL dans R, et le tout dans une triple boucle.

Pourquoi utilises tu R si c'est pour faire ca?
Le prend pas mal mais la c'est une horreur ton code

Il existe un tas de fonctions R plus élégantes et plus efficaces pour faire toutes les requêtes que tu veux sur des bases de données.

Explique nous concrètement quelles sont tes données et ce que tu veux obtenir en sortie et on t'aidera en R à stocker tes résultats et coder proprement, mais la non, pas ca par pitié :cry:
02/05/2013, 16h29
Stepsbysteps

Ah bon? lol
Moi je trouvai ça propre.

Je dois juste comparer des tables de données.
J'ai des tables de modélisations et des tables vraies.

Dans les table de modélisation il y a les numéros de dossier qui ont eu l’événement X par modélisation.

Dans les vraies il y a les numéros de dossier qui ont eu l’événement X réellement.

Pour une année j'ai 4 dates d'arrêtées et 4 règles de gestions possible qui m'indiquent de différentes manière si X s'est produit.

En faite je fait une boucle d'abord sur mes années pour traiter toutes les années, en suite une boucle sur la date d'arrêté et en suite une boucle sur la règle de gestion pour pouvoir tout balayer.

De manière à savoir combien sont bien modélisés, mal modélisés, non modélisés suivant la règle de gestion utilisés.

Je ne vois pas comment faire d'autre à part des boucles et des requêtes pour pouvoir traiter toutes les données.

Ca marche très bien, c'est juste au niveau du stockage que c'est prise de tête j'aimerai un stockage par année décomposé par Date puis par règles et non les valeurs à la suite dans un vecteur...

Citation:

Envoyé par Stepsbysteps

J'ai des tables de modélisations et des tables vraies.

Dans les table de modélisation il y a les numéros de dossier qui ont eu l’événement X par modélisation.

Dans les vraies il y a les numéros de dossier qui ont eu l’événement X réellement.

Pour une année j'ai 4 dates d'arrêtées et 4 règles de gestions possible qui m'indiquent de différentes manière si X s'est produit.

En faite je fait une boucle d'abord sur mes années pour traiter toutes les années, en suite une boucle sur la date d'arrêté et en suite une boucle sur la règle de gestion pour pouvoir tout balayer.

Je pars du principe que tu as une table model pour les cas prédits avec 4 variables : le numero de dossier, l'année, le mois et le test (ou règle de gestion).

Idem pour une table reel pour les cas avérés.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 VP<-intersect(model$dossier,reel$dossier) #Vrai Positif : dans model et reel FP<-setdiff(model$dossier,reel$dossier) #Faux Positif : dans model et pas dans reel FN<-setdiff(reel$dossier,model$dossier) #Faux Negatif : pas ds model mais dans reel reelVP<-reel[reel$dossier %in% VP,] tapply(reelVP$dossier,list(reelVP$annee,reelVP$mois,reelVP$test),length) modelFP<-model[model$dossier %in% FP,] tapply(modelFP$dossier,list(modelFP$annee,modelFP$mois,modelFP$test),length) reelFN<-reel[reel$dossier %in% FN,] tapply(reelFN$dossier,list(reelFN$annee,reelFN$mois,reelFN$test),length)
Et comme c'est codé proprement tout est déjà facilement accessible et tout bien classé par année puis mois puis test.
Tu remarqueras qu'il n'y a pas de boucle et pas de sql.

03/05/2013, 09h47
Stepsbysteps

1 pièce(s) jointe(s)

Bonjour merci de la technique,
en faite mes données sont comme ça et je sais pas si on sait compris sur ce point?

Comme tu n'as rien précisé sur la tête de tes données forcément je risquais pas de comprendre ton problème...

Je pense que ton soucis la c'est surtout que ton data frame est inexploitable sous cette forme (disons le franchement).

Ca te simplifierais pas la vie de passer de ca:

Code:

1
2
3
4
  Juin_2008_CRD Sept_2007_truc Nov_2012_gest
1             1             10             9
2             2              4            18
3             3              5            27

à ca?

Code:

1
2
3
4
5
6
7
8
9
10
   dossier gestion mois annee
1       1     CRD Juin  2008
2      10    truc Sept  2007
3       9    gest  Nov  2012
4       2     CRD Juin  2008
5       4    truc Sept  2007
6      18    gest  Nov  2012
7       3     CRD Juin  2008
8       5    truc Sept  2007
9      27    gest  Nov  2012

En faisant (où model est ton dataframe) :

Code:

1
2
3
4
5
6
7
8
9
10
11
 
model<-t(model)
dossier<-c()
for( i in 1:ncol(model)){dossier<-c(dossier,model[,i])}
 
gestion<-gsub(pattern=".?.?.?.?.?._",replacement="",names(dossier))
mois<-gsub(pattern="_.?.?.?.?.?......",replacement="",names(dossier)))
annee<-gsub(pattern="_...?.?.?",replacement="",sub(pattern="?.?.?.?.?._",replacement="",names(dossier))))
 
 
model<-as.data.frame(dossier=dossier,mois=mois,annee=annee,gestion=gestion)

03/05/2013, 13h55
Stepsbysteps

Merci ce ton temps encore qui est très appréciable, je vais voir ce que je peux en faire même si ce que j'ai fait marche très bien ^^