Discussion :

[vicjohns]

Bonjour à tous,

Je suis encore confronté à un casse tête depuis un petit moment. Au fait je voudrais connaitre la fréquence d'une variable, c'est à dire si la variable est hebdomadaire mensuelle ou bien encore annuelle. Je m'explique:

Voici mes données:

Cnt	Mt	Dt	Nature
2	10	01/02/2017	VR
2	12	08/02/2017	VR
2	5	15/02/2017	VR
3	6	05/05/2018	VR
3	7	05/06/2018	VR
3	5	05/07/2018	VR

Et j'aimerais obtenir le tableau suivant:

Cnt	Mt	Occurence	Frequence
2	27	3	hebdo
3	18	3	mensuel

Vous me sauvez encore une fois la vie. Merci d'avance.

[flo00154]

Bonjour,

Voici une possibilité en partant du principe que l'apparition peut être uniquement hebdo ou mensuel et que tu as bien au moins deux observations par contrat.

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
Data r;
Input Cnt Mt Dt :ddmmyy10. Nature $;
format dt ddmmyy10.;
Cards;
2 10 01/02/2017 VR
2 12 08/02/2017 VR
2 5 15/02/2017 VR
3 6 05/05/2018 VR
3 7 05/06/2018 VR
3 5 05/07/2018 VR
;Run;
 
Proc sort data = r;
by cnt dt;
Run;
 
Proc format;
Value Occ 1 = "Hebdo"
		  4 = "Mensu";
Run;
 
Data rr (drop= mt nature dt last_dt);
set r;
By cnt dt;
Retain Montant occurence time;
LAST_DT = Lag(DT);
If first.cnt then do;
	occurence = 1;
	Montant = mt;
End;
Else do;
	Occurence + 1;
	Montant + mt;
	Time = Put(INTCK("Week",LAST_DT,dt),occ.);
End;
If last.cnt;
Run;

La fonction Lag permet de retenir la valeur d'une variable sur l'observation n-1 (dans cet exemple).
La fonction INTCK permet de calculer le nombre de semaines entre deux dates, si on est à 1 alors on retourne "Hebdo" avec la fonction Put, sinon on retourne "Mensu".
On en profite pour calculer les montants totaux et les occurrences via des retain.

Flo00154

[vicjohns]

Franchement l'idée de ce site est absolument génial. Merci developpez.net
Actuellement je ne suis pas devant mon ordi je mis mets des que je suis chez moi, ainsi je verrai le résultat.
Merci d'avance.

[hossward]

Si la table est triée au préalable ce code répond également à ta requête.

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
Data Tatable ;
input Cnt Mt date :ddmmyy10. Nature $;
format date ddmmyy10.;
cards;
2 10  01/02/2017 VR
2 12  08/02/2017 VR
2 5   15/02/2017 VR
3 6   31/05/2018 VR
3 7   30/06/2018 VR
3 5   31/07/2018 VR
; run ;  	

data Resultat (keep=Cnt S_Mt N Frequence) ;
S_Mt=0 ;  N=0 ;
do until(last.Cnt);
set Tatable ;  
by Cnt notsorted ;	
S_Mt+Mt ; N+1 ;

if N=1 then Temp=Date ; 
else Diff= intck('Month', Temp, Date);
Frequence=ifc( Diff > 0, 'Mensuel', 'Hebdo' ) ;  
end ;  
run  ;

Ward

[vicjohns]

Bonjour à tous j'ai créé autre que cette discussion une autre appelée "Somme sur une variable avec des conditions". Mon but final était de réunir les réponses des 2 discussions afin de pouvoir obtenir le résultat que j'attendais.

Ayant comme tableau de base:

cnt	dt	mois	Montant1	Montant2	Reseau	Nature
1	01/02/2017	2	300	100	AG	VL
1	01/05/2017	5	200	50	AG	VL
1	27/12/2017	12	100	50	AG	VL
2	01/02/2018	2	50	10	AT	VR
2	08/02/2018	2	50	10	AT	VR
2	15/02/2018	2	50	10	AT	VR
3	05/05/2017	5	100	20	AG	VR
3	05/06/2017	5	100	20	AG	VR
3	05/07/2017	7	100	20	AG	VR
4	25/09/2017	9	100	20	AG	VS

J'aimerais obtenir le tableau final suivant:

cnt	Montant1	Montant2	Occurence	Frequence	Q1	Q2	Q3	Q4	Reseau
1	600	200	3	0	300	200	0	100	AG
2	150	30	3	hebdo	0	0	0	0	AT
3	300	60	3	mensuel	0	0	0	0	AG
4	100	20	1	0	0	0	0	0	AG

Je vous avais demandé dans nos discussions précédentes comment obtenir les tableaux pour les variables VL et VR. Les codes marchaient très bien. Cependant quand je veux cumuler les 2 codes que vous m'aviez fournir pour obtenir mon tableau final je n'obtiens pas de bons résultats. Je pense que mon erreur provient de la syntaxe de mon code. Pourriez vous s'ils vous plait voir ce qui ne va pas? Voici mon code.

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
 
Proc format;
invalue QT 1,2,3 = 1
		   4,5,6 = 2
		   7,8,9 = 3
		   10,11,12 = 4;
Run;
 
Proc format;
Value freq 1 = "Hebdo"
		   4 = "Mensu"
          52 = "An";
Run;
 
 
Proc sort data = VL_SUPP; *VL_SUPP est mon tableau initial
by CNT DT;
Run;
 
 
Data VL_Q (drop = dt Mois);
set VL_SUPP;
By CNT DT;
Array Q{4};
Retain mt occurence time;
LAST_DT = Lag(DT);
If first.cnt then do;
    Q{*} = 0;
    Q{input(Mois,QT.)} + Montant1;
	occurence = 1;
	mt = Montant1;
End;
Else do;
	Occurence + 1;
	mt + Montant1;
	Time = Put(INTCK("Week",LAST_DT,DT),freq.);
End;
If last.cnt;
Run;

[flo00154]

Bonjour,

Tu peux essayer ceci :

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
Data r;
Input cnt dt :ddmmyy10. mois Montant1 Montant2 (Reseau Nature) ($) ;
Cards;
1 01/02/2017 2 300 100 AG VL 
1 01/05/2017 5 200 50 AG VL 
1 27/12/2017 12 100 50 AG VL 
2 01/02/2018 2 50 10 AT VR 
2 08/02/2018 2 50 10 AT VR 
2 15/02/2018 2 50 10 AT VR 
3 05/05/2017 5 100 20 AG VR 
3 05/06/2017 5 100 20 AG VR 
3 05/07/2017 7 100 20 AG VR 
4 25/09/2017 9 100 20 AG VS 
;Run;
 
Proc SQL;
Create table r_s as
Select *, QTR(Dt) as Tr
from r
Order by cnt;
Quit;
 
Data rr (keep = cnt Q: occurence time reseau tot:);
Set r_s;
by cnt;
LAST_DT = Lag(DT);
Array Q{4};
Array mt{*} montant1 montant2;
If first.cnt then do;
	call missing(of Q{*},tot_montant1, tot_montant2);
	occurence = 1;
End;
Else do;
	Occurence + 1;
	Time = Put(INTCK("Week",LAST_DT,dt),occ.);
End;
	Q{Tr} + montant1;
	Tot_Montant1 + mt{1};
	Tot_Montant2 + mt{2};
If last.cnt;
Run;

Flo00154

[vicjohns]

Le nouveau code répond aussi à mes attentes mais c'est juste qu'il manque la variable fréquence qui me donnais si le fréquence est hebdomadaire mensuelle ou même annuelle. Comment peut-on la variable fréquence?

[flo00154]

La variable fréquence y est mais elle s'appelle "Time", je ne l'ai pas rename.

Flo00154

[vicjohns]

Merci beaucoup pour votre aide. J'obtiens bien le résultat escompté.