Discussion :

[Kirata]

salut,
mes données sont comme ça
a b c d e
8 0 0 0 0
5 0 1 1 0

je souhaite créer une var S qui prend 1 si l'une des var (b,c,d ou e ) prend 1...

[Manoutz]

As tu cherche? Quelle approche proposes tu? Si tu es bloque, quel est techniquement ton probleme?

[Kirata]

Code :

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

if b=1 or c=1 or d=1 or e=1 or ... then relap=1;

bah voila mais la liste des variables est longue

[bahraoui]

tu peux utiliser un array (tableau)SAS.

[s_a_m]

Hello,
Je ne vois pas comment le faire avec un array.

je propose l' exemple suivant:

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
 
data tab;
input a b c d e;
cards;
8 0 0 0 0
5 0 1 1 0
0 1 0 0 0
1 0 2 3 4
3 2 2 9 6
0 1 3 5 6
4 5 6 7 1
0 2 3 4 5
;run;
 
data tab;
set tab;
s=ifn (findc(cats(of a--e),1)>=1,1,0)   ;
run;

Pour le nom de tes variables, il faut voir...

[olivier.decourt]

Hello SAM.
Si une des variables vaut 12, est-ce que ta solution ne la considère pas comme valant 1 ?
Avec un ARRAY comme le suggérait Salah, l'algorithme serait :
1) RELAP initialisé à 0
2) parcourir l'array en boucle
3) si un élément de l'array vaut 1, alors RELAP=1

On peut même abréger les souffrances de la boucle en lui ajoutant une condition d'arrêt si RELAP passe à 1.

Code :

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

DO i=1 TO DIM(tableau) WHILE(relap=0) ;

[s_a_m]

Merci pour la remarque Olivier.
je rectifie le tir .Alors mon exemple devient:

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
 
 
DATA tab;
input a b c d e;
cards;
8 0 0 0 0
18 0 0 0 0
8 0 0 0 11
5 0 1 1 0
0 1 0 0 0
1 0 2 3 4
3 2 2 9 6
0 1 3 5 6
4 5 6 7 1
0 2 3 4 5
;run;
 
DATA tab;
SET tab;
relap=ifn (find('|'!!catx('|',of a--e),'|1|')>1,1,0);
run;

PS: une solution avec tableaux sera mieux adaptée

[olivier.decourt]

Il manque encore à ta solution de concaténer un dernier | à la fin pour le cas où le seul 1 serait le dernier (c'est le cas dans l'observation 9 de ton exemple).

Code :

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

relap=(find('|'!!catx('|',of a--e)!!'|','|1|')>1);

ou bien

Code :

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

relap=(findW(catx('|',of a--e),'1','|')>0);

[bahraoui]

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
 
DATA tab;
input a b c d e;
cards;
8 0 0 0 0
0 0 0 0 0
5 0 1 1 0
0 0 0 0 0
0 1 0 0 0
1 0 2 3 4
3 2 2 9 6
0 1 3 5 6
4 5 6 7 1
0 2 3 4 5
0 0 0 0 0
;run;
 
data tab1;set tab;
array tableau(*) _numeric_;
s=0;
DO i=1 TO DIM(tableau);
	if tableau[i] eq 1 then s=1;
end;
run;

[s_a_m]

Il manque encore à ta solution de concaténer un dernier | à la fin pour le cas où le seul 1 serait le dernier (c'est le cas dans l'observation 9 de ton exemple).

Code :

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

relap=(find('|'!!catx('|',of a--e)!!'|','|1|')>1);

ou bien

Code :

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

relap=(findW(catx('|',of a--e),'1','|')>0);

.
Cette fois , c'est une erreur de copier collé.

[bahraoui]

c'est plus court avec le find

[s_a_m]

c'est plus court avec le find

C'est plus court mais je vote quand même pour ta solution

[bahraoui]

Pourquoi la mienne, l'autre est plus élégante?