Discussion :

[bouchéen]

Voila mon problème :

J'ai la table suivant

Patient diag1 diag2 diag3 diag4
01 A A A B
02 A B B B
03 A A C C
04 A B C C

J'aimerais obtenir la table suivante qui compte les diagnostics par patients et par type en créant une macro.

Patient diag1 diag2 diag3 diag4 Nom_diag1 Nb_diag1 Nom_diag2 Nb_diag2
01 A A A B A 3 B 1
02 A B B B B 4 - .
03 B B B A B 3 A 1


Pour cela j'ai recuper dans 2 macros variables le nombre total de diagnostic (nb_diag) et le nombre différent de diagnostic (diag_diff). Je voulais utiliser ces 2 valeurs pour faire 2 boucles. Un allant de 1 à diag_diff et l'autre allant de 2 à nb_diag mais si je suis ici c'est que c'est un echec.

Est ce que quelqu'un aurait une petite idée ??
Merci.
une allant de 1 au nombr

[Elcocco]

Salut,

Voici un code qui pourrais peut être t'aider au final je créer trois autres variables qui prenne pour la valeut le nombre de diagnostique.

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
18
19
20
21
22
23
24
25
26
 
data table01;
	attrib patient format=$2.
		    diag1 diag2 diag3 diag4 format=$1.;
	input patient diag1 diag2 diag3 diag4;
	cards;
01 A A A B
02 A B B B
03 A A C C
04 A B C C
;
run;
 
data table02;
	set table01;
	array num_diag(4) $ diag1-diag4;
		nb_diag_A=0;
	nb_diag_B=0;
	nb_diag_C=0;
	do i=1 to dim(num_diag);
	retain nb_diag_A nb_diag_B nb_diag_C;
	if num_diag(i)='A' then nb_diag_A=nb_diag_A+1;
	else if num_diag(i)='B' then nb_diag_B=nb_diag_B+1;
	else if num_diag(i)='C' then nb_diag_C=nb_diag_C+1;
	end;
run;

[bouchéen]

Merci beaucoup pour cette réponse qui fonctionne trés bien pour l'exemple que j'ai proposé.

Mais mon but est de généralisé cela à un nombre trés important de diagnostics et de patients.
Voila la macro surlaquelle je bute.
Je n'arrive pas a trouver la boucle correcte de la 2eme partie.

Merci pour votre aide.

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
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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
 
 
DATA table01;
	input patient $ 1-2 dp_1 $ 4 dp_2 $ 6 dp_3 $ 8 dp_4 $ 10 NB_DP  12 ;
	DATALINES;
01 A B C D 4
02 A B B   3
03 A B C C 4
04 A A     2
05 A       1
;
run;
 
 
 
 
%macro compteur(tabin,tabout,maxdiag);
 
/*Partie1:Création des macro variables:Cette partie fonctionne*/
/*On crée le nombre max de diagnostic différent*/
data temp1;set &tabin;
dp_diff=0;
%do i=1 %to &maxdiag;
%let j=%eval(&i+1);
if dp_&i.=dp_&j. then dp_diff=dp_diff;
else  dp_diff=dp_diff+1;
 
%end;
%let maxp1=%eval(&maxdiag.+1);
drop dp_&maxp1.;
run;
 
/*On affecte les valeurs max*/
proc sql noprint;
SELECT max(dp_diff) INTO: max_dp_diff FROM temp1;
quit;
 
%put Le nombre max de diagnostic EST = &maxdiag.;
%put Le nombre max de diagnostic différent EST = &max_DP_diff.;
 
 
/*Partie 2:Création de la table de sortie*/
 
data &tabout;
set temp1;
 
NB_DP_1=1; /*Tous le monde a au moins 1 diagnostic*/
Diff1=0;  /*Variable pour la position du diagnostic*/
 
 
%do k=1 %to &max_DP_diff.
 
	%do i=2 %to &maxdiag.;
 
		if DP_&i=DP_&k then NB_DP_&k=NB_DP_&k+1;else NB_DP_&k=NB_DP_&k;
		nom_DP_X&k=DP_1;
 
	%end;
%end;
 
 
run;
%mend;
 
%compteur(table01,table02,4);

[Elcocco]

Bonjour,

j'ai une question à quoi correspond ta macro variable &max_NB_DP, car je ne la vois pas initialisée dans ton code.

merci

[bouchéen]

Oui tu as raison.

Elle n'etait pas initialisé et correspondait en fait à maxdiag (initialisé dans les parametres de la macro, ici sa valeur est 4).

Merci.

[olivier.decourt]

Bonjour.
Je ne suis pas certain qu'on ait forcément besoin de macros ici. Des transpositions seraient plus simples à programmer (à mon avis).

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
DATA work.boucheen ;
  INPUT Patient $ (diag1 diag2 diag3 diag4) (:$1.) ;
DATALINES ;
01 A A A B
02 A B B B
03 A A C C
04 A B C C
;
RUN ;
PROC TRANSPOSE DATA=work.boucheen OUT=work.pivot ;
  VAR diag: ;
  BY patient ;
RUN ;
PROC SQL ;
  CREATE TABLE work.pivot2 AS
    SELECT patient, col1, COUNT(*) AS nb
	FROM work.pivot
	GROUP BY patient, col1
  ;
QUIT ;
PROC TRANSPOSE DATA=work.pivot2 OUT=work.diag PREFIX=nom_diag ;
  BY patient ;
  VAR col1 ;
RUN ;
PROC TRANSPOSE DATA=work.pivot2 OUT=work.nb PREFIX=nb_diag ;
  BY patient ;
  VAR nb ;
RUN ;
DATA work.resultat ;
  MERGE work.diag work.nb ;
  BY patient ;
RUN ;

Bon courage.
Olivier

[bouchéen]

Merci olivier pour cette réponse.

Cela fonctionne bien et évite en effet un temps calcul à rallonge.

Pour que cela fonctionne avec des valeurs manquante comme pour la table en xemple ci-dessous , il faut supprimer les ligne de work.pivot pour lesquelles la valeur de COL1 est manquante.

Voila le code final qui fonctionne.

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
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
 
DATA work.boucheen1;
	input patient $ 1-2 diag1 $ 4 diag2 $ 6 diag3 $ 8 diag4 $ 10  ;
	DATALINES;
01 A B C D 4
02 A B B   3
03 A B C C 4
04 A A     2
05 A       1
;
run;
 
 
PROC TRANSPOSE DATA=work.boucheen1 OUT=work.pivot ;
  VAR diag: ;
  BY patient;
RUN ;
 
PROC SQL ;
  CREATE TABLE work.pivot2 AS
    SELECT patient, col1, COUNT(*) AS nb
	FROM work.pivot
	GROUP BY patient, col1
  ;
QUIT ;
 
data work.pivot3;set work.pivot2;if col1="" the delete;run;
 
PROC TRANSPOSE DATA=work.pivot3 OUT=work.diag PREFIX=nom_diag ;
  BY patient;
  VAR col1 ;
RUN ;
 
PROC TRANSPOSE DATA=work.pivot3 OUT=work.nb PREFIX=nb_diag ;
  BY patient;
  VAR nb ;
RUN ;
 
DATA work.resultat ;
  MERGE work.diag work.nb ;
  BY patient;
RUN ;

Merci a tous pour votre temps et vos réponse.

[Elcocco]

Bonjour,

la méthode d'Olivier semble effectivement plus rapide si vraiment tu veux par macro j'ai modifié ton code en rajoutant un étape d'initialisation de variables pour le calcul

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
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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
 
 
/*Partie1:Création des macro variables:Cette partie fonctionne*/
DATA table01;
	input patient $ 1-2 dp_1 $ 4 dp_2 $ 6 dp_3 $ 8 dp_4 $ 10 NB_DP  12 ;
	DATALINES;
01 A B C D 4
02 A B B   3
03 A B C C 4
04 A A     2
05 A       1
;
run;
 
 
%macro compteur(tabin,tabout,maxdiag);
 
/*On crée le nombre max de diagnostic différent*/
DATA temp1;SET &tabin;
dp_diff=0;
%do i=1 %TO &maxdiag;
%let j=%eval(&i+1);
IF dp_&i.=dp_&j. then dp_diff=dp_diff;
else  dp_diff=dp_diff+1;
 
%end;
 
%let maxp1=%eval(&maxdiag.+1);
DROP dp_&maxp1.;
run;
 
/*On affecte les valeurs max*/
proc sql noprint;
SELECT max(dp_diff) INTO :max_dp_diff FROM temp1;
quit;
 
%put Le nombre max de diagnostic EST = &maxdiag.;
%put Le nombre max de diagnostic différent EST = &max_DP_diff.;
 
 
 
 
 
/*Partie 2:Création de la table de sortie*/
 
 
DATA &tabout.;
	SET temp1;
 
	NB_DP_1=1; /*Tous le monde a au moins 1 diagnostic*/
	Diff1=0;  /*Variable pour la position du diagnostic*/
 
 %do k=1 %to &max_dp_diff.;
IF DP_&k. = '' then NB_DP_&k.=0; else NB_DP_&k.=1;
 nom_DP_X&k.=DP_&k.;
 
%do i=%eval(&k.+1) %TO &maxdiag.;
		IF DP_&i.=DP_&k. then NB_DP_&k.=NB_DP_&k.+1;
				else NB_DP_&k.=NB_DP_&k.;
 
 
	%end;
 
%end;
 
run;
 
 
%mend;
%compteur(table01,table02,4);

[bouchéen]

Merci elcocco pour ta réponse.

La macro que tu propose fonctionne bien avec cet exemple.

Elle a comme limite que si les 2 premiers diagnostics sont identiques (cf exemple: ligne 4) de recommencer à partir du 2 eme de donc de donner A et 2 comme respectivement nom et nombre de diagnostic pour le 2eme.

Code :

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

1
2
3
4
5
6
7
8
9
10
DATA table01;
	input patient $ 1-2 dp_1 $ 4 dp_2 $ 6 dp_3 $ 8 dp_4 $ 10 NB_DP  12 ;
	DATALINES;
01 A B C D 4
02 A B B   3
03 A B C C 4
04 A A A C 4
05 A       1
;
run;

En tout cas un grand merci à vous.