Discussion :

[Stat_papillon]

Bonjour, je dois affectuer une macro qui permet de supprimer les colonnes présentant la meme modalité.
Ex:
V1 V2 V3 V4
5 2 5 3
5 2 6 3
4 2 8 3
6 2 7 3
8 2 6 3
Dans ce cas je vais devoir supprimer la 2eme colonne et la 4 eme colonne. Le nombre de variable n'est pas fixé.
J'y réfléchi depuis un moment mais impossible de trouver la réponse , pouvez vous m'éclairer s'il vous plait ?

Merci par avance.

[JeromeMATHIAS]

Bonjour,

peut-être devrait tu définir un peu plus finement ta problématique.

Dans ton exemple, je ne vois qu'une table avec une seule variable.
Toi tu en vois 4. Je suppose donc que tu pars d'une définition de variable : 1 variable = 1 caractère.


Partant de là je vois bien que la deuxième variable ne comporte que des 2 et la quatrième que des 3...

Mais pour moi ça n'en fait pas des variables à modalités égales... L'une a pour unique modalité 2, et l'autre 3, et 2^=3...

Quelle est ta définition de variables "présentant la même modalité" sur laquelle nous devons partir ...?

[josef1980]

Bonjour,
je n'ai pas très bien compris votre problématique mais si chaque caractère concerne une variable j'ai fait un programme qui répond à la question (bien sur si chaque colonne des nombre que vous avez donnés concerne une colonne)
Ci-contre le 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
40
41
42
43
44
45
46
47
48
 
data test;
input x y z t;
cards;
5 2 5 3
5 2 6 3
4 2 8 3
6 2 7 3
8 2 6 3
;
run;
 
proc transpose data=test name=les_var out=test2; 
run;
 
proc contents data=test2 out=contenu(keep=name varnum where=(name ne 'les_var')) noprint;
run;
proc sort data =contenu ;
by varnum;
run;
 
proc sql noprint;
  select name into :lst_var separated by ' ' from contenu;
run;
%put &lst_var.;
 
  %macro liste_var;
    %global filtre;
    %let i=1;
      %let filtre=%scan (&lst_var.,&i.)%str(=)%scan (&lst_var.,&i.+1);
    %do i=2 %to %eval(%sysfunc(countw(&lst_var.))-1);
      %let filtre =&filtre. and %scan(&lst_var.,&i.)%str(=)%scan(&lst_var.,&i.+1);
    %end;
   %mend;
%liste_var;
proc print data=test2;
run;
 
data test3;
  set test2;
  if  &filtre then delete;
run;
 
proc transpose data=test3 out=test4(drop=_name_);
id les_var;
run;
proc print data=test4;
run;

Cordialement

[m.brahim]

Bonjour,

Une autre solution est également possible:

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
 
 
DATA test;
input col1 col2 col3 col4 col5 col6 col7 col8 col9 col10 col11 col12 col13 col14 col15;
cards;
1 10 1 1 1 1 1 1 1 1 1 1 1 1 1
1 10 1 1 2 2 2 2 2 2 2 2 2 2 2
1 10 1 1 3 3 3 3 3 3 3 3 3 3 3
1 10 1 1 4 4 4 4 4 4 4 4 4 4 4
1 10 1 1 1 1 1 1 1 1 1 1 1 1 1
1 10 1 1 2 2 2 2 2 2 2 2 2 2 2
1 10 1 1 3 3 3 3 3 3 3 3 3 3 3
; run ;
 
 
%macro test();
%global variable;
%let variable= ;
proc contents data=test out=contenu(keep=name ) noprint;
run;
 
data _null_;
set contenu;
call symputx('var'||left(_n_),compress(name));
call symput('cnt',compress(_n_));
run;
 
%do i=1 %to &cnt;
 
proc sort data=test nodupkey out=test_nodup; 
by &&var&i ;
run;
 
 
DATA _null_;
SET test_nodup END=eof; 
IF eof THEN DO;
      CALL SYMPUT('nb',put(_N_,8.)); 
END;
run;
 %if &nb =1 %then %do;
%let variable=%sysfunc(catx(%str( ),&variable,&&var&i));
%put &variable;
%end;
%end;
%mend;
%test;
 
data test (drop=&variable );
set test;
run;

Cordialement

[hossward]

Bonjour,
Je pense qu’on n’a pas besoin d’une macro. Il suffit d'utiliser l’option « NLEVELS » de la proc freq comme ceci :
http://www.developpez.net/forums/d14...bles-modalite/
Cdt Ward

[Stat_papillon]

Le but de mon exercice est d'enlever toutes variables ayant la meme modalité sachant que le nombre de variable n'est pas déterminer.
donc ici le programme devra enlever la deuxieme et quatrième colonne .

[Stat_papillon]

Merci pour votre aide ! le programme fonctionne très bien !
Mais j'ai quelques questions a propos des fonctions:

Code :

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

1
2
3
4
5
6
7
8
9
10
DATA _null_;
SET test_nodup END=eof; 
IF eof THEN DO;
      CALL SYMPUT('nb',put(_N_,8.)); 
END;
A quoi correspond EOF ?
et put(_N_,8.) ?
 
Que signifie cette ligne ?
%let variable=%sysfunc(catx(%str( ),&variable,&&var&i));

Merci par avance,
cordialement.

[Stat_papillon]

Merci beaucoup pour votre aide josef1980!

[m.brahim]

Bonjour,


Voici les étapes de résolution du sujet avec les réponses à tes questions:

1/ Déterminer les variables présentes dans la table:

Code :

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

1
2
 proc contents data=test out=contenu(keep=name ) noprint;
run;

2/ création des macro variables liées à chaque variable ainsi le nombre des ces variables:

Code :

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

1
2
3
4
5
6
7
 
 
data _null_;
set contenu;
call symputx('var'||left(_n_),compress(name));
call symput('cnt',compress(_n_));
run;

3/ pour chaque macro variable créée, j'applique une proc sort avec l'option nodupkey afin de déterminer les modalités liées à chaque variable.

la table test_nodup me sert de sortie.

Code :

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

1
2
3
4
 
proc sort data=test nodupkey out=test_nodup; 
by &&var&i ;
run;

3/ Suite aux nombre d’observations obtenu dans la test_nodup, je regarde le nombre observations.

Code :

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

1
2
3
4
5
6
7
 
DATA _null_;
SET test_nodup END=eof; 
IF eof THEN DO;
      CALL SYMPUT('nb',put(_N_,8.)); 
END;
run;

3.1/ Pour EOF: End of File.
Par habitude, on donne ici le nom EOF (End Of File) comme nom à la variable lorsque l'option END= est utilisée.
Prend une valeur 1 s’il s’agit de la dernière observation, 0 autrement.
Comme la variable automatique _N_, EOF n’apparaît pas dans le data set final, s’il est créé
(Ref: https://thesasreference.wordpress.com/tag/_n_/)

3.2/ Afin d'éviter cette note dans la log:

NOTE: Numeric values have been converted to character values at the places given by:
(Line)Column).

j'ai réalisé la conversion comme suit: CALL SYMPUT('nb',put(_N_,8.));

Test:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
DATA _null_;
SET sashelp.class END=eof; 
IF eof THEN DO;
      CALL SYMPUT('nb1',_N_); 
END;
run;
 
DATA _null_;
SET sashelp.class END=eof; 
IF eof THEN DO;
      CALL SYMPUT('nb2',put(_N_,3.)); 
END;
run;

4/ Ne garder que les variables pour lesquelles le nombre d'observation lors de la proc sort est égal à 1.

Code :

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

 %if &nb =1 %then %do

Pour rappel: Les macros variables sont des caractères.

pour le fonctionnement de la comparaison

4.1) le compilateur macro passe : &nb est remplacé valeur trouvée.
4.2) le compilateur SAS : interprète la valeur comme un nombre est la compare avec 1.


5/ Récupération de l'ensembles des variables pour lesquelles le &nb=1
/La macro variable : variable est initialisée au début du programme.

Code :

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

%let variable=

Mise à jour de la macro variable une fois le test de comparaison est ok

%let variable=%sysfunc(catx(%str( ),&variable,&&var&i));

Chaque mise à jour est séparée d'un espace pour son utilisation lors du drop.

6/ Suppression des variables trouvées:

Code :

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

1
2
3
data test (drop=&variable );
set test;
run;

Si tu as des questions n'hésiter pas

Cordialement